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ACSTRACT 


A new method of chiracteristics numerical scheme for three-dimensional 
steady flow has been developed which 1as second-order accuracy. Heretofore 
all such schemes for three-dimensional flow have had accuracies less than 
second-order. A complete numerical algorithm for computing internal super- 
sonic flows of the type encountered in ramjet, scramjet, or rocket propul- 
sion systems has been developed and programmed for both the IBM 7094 and 
CDC 6560 computers. The method nas been tested for order of accuracy using 
the exact solution for source flow and Prandtl-Meyer flow. The results of 
these tests have verified the second-order accuracy of the scheme. Addition- 
al accuracy tests using existing methods for solution of two-dimensional 
axisymmetric flows have shown that tne scheme produces accuracies comparable 
to that of the two-dimensional method of characteristics. The computer 
program has been used to generate the flow field for several three-dimension- 
al nozzle contours and for sonsymmetric flow into an axisymmetric nozzle. 
These results reveal the complex nature of three-dinensional flows and the 
general inadequacy of quasi-three-dimensional analyses which neglect cross- 
flow. An operationally convenient computer program was produced. The pro- 
gram has the capability to analyze nonisoenergetic and nonhomentropic 
flows of a calorically perfect gas or homentropic flows of a real gas in 
chemical equilibrium. The initial-value surface options include uniform 
flow, source flow, or axisymmetric tabular data. The nozzle boundary 
options include conical nozzles, axisymmetric contoured nozzles and 
super-elliotical nozzles. 
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INTRODUCTION 
A computer program has been developed which can be used to obtain the 
solution for a wide variety of internal supersonic flows having three- 
dimensional spatial character. The analytical method, which is the basis 
for the computer program, {s developed in Volume I of this report. This 
= volume (Volume II) is a description of the computer program and the results 


in the analysis of the flcw in three-dimensional supersonic thrust nozzles; 
however, the program is equally applicable to three-dimensional flow within 
any duct which is consistent with the basic assumptions of ine flow model. 


of eight sample cases. The computer program is designed primarily for use 
/ Specifically, the surface of the duct is assumed to be smooth (continuous 


=| first derivatives) and not te have extreme variatior cf the mean flow 
q direction. 
a8 The computer program is supplied with a boundary subprogram which 


includes axisyrmetric and super-elliptical duct shapes. For more arbitrary 
geometries the user must supply a replacement subprogram which describes 
his particular duct geometry. 


The program is written entirely in Fortran IV. Two versions of the 
program are available: one for the IBH 7094 computer and one for the CDC 
6500 computer. The overlay scheme and program listing presented in this 
manual are for the IBM 7094, All the sample cases have been executed on 
both machines, but the sample ovtput presented in this manual is from the 
IBM 7694. Run times for both machines are given. The input discussion 
presented in this manual is valid for both versions of the program. The 
program can be easily modified to be competible with cther computing 
machines, such as the Univac 1108. 
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PROGRAM ORGANIZATION 


1. GENERAL 


The program consists of a main section and thirty-six subroutines 
which are used to perform the five primary tasks of: 7) data input, 
2) parameter initialization, 3} generation of the initial- ~val ue surface, 
4) plane by plane integration to cons truct the solution, and 5) prir tout 
of selected results. The entire program is too large to be stored con- 
tinuously in computer memory; consequently, an everlay scheme is usec 
and the five primary tasks are performed in sequence. The overlay arrange- 
ment is presented in Figure 1. An option exists for storing the soluticn 
on tape for restart purposes. When this option is specified (see the 
input parameter NSTART in NAMELIST CNTRLL ), a file tape must Le available. 
This tape is TAPE 7 within the program. 


A wide variety of options are available to the user. The possible 
combinations of these options permit a wide variety of three- dimensional 
thrust nozzle problems to be solved. 


2. DATA INPUT 


All required data and parameters are input by means of : amelist data. 
Four namlists, named CNTRLL, WALSBL., ARGSSL and I¥SL, are used for this 
purpose. The CNTRLL namelist specifies pzramete-s which control operation 
of the program, WALSBL specifies the nozzle wall parameter, , ARFSB. is 
used for specification of the thermodynamic parameters and options, and 
IYSL is used to input the initial-value surface data. The namelists are 
read from the subroutine READIN. The input data are checked for consis- 
tency and data are output to identify the particular case being run, [f 
the input data are found to be inconsistent or conflicting, an appropriate 
error message is printed by subroutines ERRGRS (subroutine ERRFRS consists 
of & series of write statements for error messages which are selected by 
the argument, an integer, in the subroutine call statement). 


3. JRITIALIZATION 


Once the input data and parameters have been read in, initialization of 
the subroutines takes place. This process consists of calculating various 
constant values which are a function of the input parameters, and fitting 
of interpolation Splines to tabular data where required. The three subrov- 
tine WALSUB, ARGSUB, and INVALS must be initialized. Initialization of 
WALSUB and ARGSUS ‘s accomplished by separate subroutines called WALSB? 
and ARGSB2. The necessarv parameters are transmitted to the main subrou- 
tines through named common biscks. The subroutine INYALS is initialized 
by calling a separate entry point, called INVYAL2, of the bas xi subroutine. 
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4. INITTAL-VALUE SURFACE GENERATION 


The initial-value surface point network is generated by the subroutine 
IVSURF, and the values of the dependent variables at each point are established 
by calling INVALS. The type of logicel point network produced will depend 
upon the number of geometric planes of symmetry which are specified, and tha 
nhysical location of the points of the network will depend upon the shape of 
che houndaries at the initial-value surface location. 


Four options exist for the determination of the dependent variables on 
the initial-value surface. The options are: 1) a uniform homentropic flew, 
2) a homentropic spherical source flow, 3) an axisymmetric nonhomentropic 
and nonisoen=rgetic flow specified by tabular input of the flow parameters 
as a function of tne radius, and 4) generation of the dependent variables 
by means of a user supplied subroutine called IVSUB (the program is supplied 
sa sample subroutine which is a double-source model for a skewed-intet 
Flow). 


5. BOUNDARY SPECIFICATION 


The solution space, and thus the initial-value surface, must be bounded 
by time-like surfaces. These surfaces are assumed to be stream surfaces of 
the flow and can consist of a smooth solid surface or a combination of a 
solid surface and one or two planes of symmetry. The global boundary may 
consist of up to eight planes of symmetry; however, it is only necessary to 
compute the flow in one sector. Thus, the case of a solid surface bounded 
by two planes of symmetry is the most general case. 


The boundary surface is described by means of the subroutine WALSUB. 
The WALSUB subroutine that is supplied with the program has cptions for 
axisymmetric and super-elliptical boundaries. Each quadrant of the super~ 
elliptical boundary can have different parameters so that a wide variety of 
completely three-dimensional shapes is possible. 


If it is desired to use a bcundary which cannot be described by the 
existing subroutine, it is necessary to replace WALSUB with a user supplied 
subroutine. The argument list for the subroutine calling linkage must be 
identical to the existing subroutine (i.e., the coordinates of a point near 
the boundary and the direction ratios of a line through the point, which 
are sufficient information to determine a line). The subroutine WALSUB 
determines the point of intersection of the line with the nozzle boundary. 
Generally two solutions exist, but the point transmitted to WALSUB jis an 
estimate for the location of the wall point and thus the nearest inter- 
section is the desired solution. Usually it will be necessary to obtain 
the solution by iterative methods. 


The specification of the plane of symmetry boundaries is built into the 
program. The first plane of symmetry of the one or two which bound the 
colution space is taken to be a plane passing through the point having 
coordinates (XIVS, YCIVS, ZCIVS) and is paraliel to the X,-X, coordinate 
plane. The second plane of symmetry, where two or more pl anés of symmetry 
exist, is located such that the line of intersection with the first plane 
of symmetry passes through the point (XIVS, YCIVS, ZCIVS) and is parallel 


4 


to the X, axis. In addition, the included angle between the first and 
second o] anes of symmetry is given by ¢ = 7/N, where N is the total number 
of geometric planes of symmetry which are common to both the nozzle and 
the flow. 


6. INTEGRATION PROCESS 


Once the initial-value surface has been established, the solution is 
generated on a series of planar surfaces which are parallel to the initial- 
value surface. The secund-order numerical integration scheme is used to 
extend the solution along the network of streamlines which pass through 
the points on the initial-value surface. The subroutine IPTSUB is used 
for the interior point integration, and the subroutine BPTSUB is used for 
the solid boundary point integration. 


The distance between successive solution surfaces is regulated such 
that the Courant-Friedrichs-Lewy stability criterion is satisfied at all 
points. The logic and calculations for the integration step size regqu- 
lation are performed by the subroutine XR@TR. 


7. OUTPUT 


The program output consists of printouts of input data and specified 
options for identification purposes, printing of the initial-value surface 
data, and subsequent printouts for each solution surface. The amount of 
data which is printed for the initial-data surface and each succeeding 
solution surface can be varied by the two pa.ameters PRINT] and PRINT2. 


After computation of each new solutien surface, the mass flow rate, 
thrust components and moments are calculated by numerical integration over 
the solution surface. In addition, flow parameters to be printed, such 
as Mach number, are calculated and placed in the proper units and stored 
for cutput purposes. These operations are performed by the subroutine 
THRUST. 


The printing cf data for the initial-value surface is performed by the 
subroutine PRNIVS, and the printing for the calculated solution surfuces 
is performec by the subroutine PRNGUT. 


SECTION [iI 
SUBROUTINE DESCRIPTIONS 


Brief descriptions of each subroutine of the program are given here 
to supplement the information available in the form of comments within 
the program. 


1. MAIN LINK 


a. MAIN. The necessary subroutines are called for reading in data, 
initialization of the subroutines, generation of the initial-value surface, 
calculation of thrust components on the initial-value surface, printing 
of the initial-value surface, and initiation of the integration process. 


b. BL@CK DATA. All constants are assigned values, and default values 
for many of the input parameters are established. 


c. THRUST. The cross-sectional area, mass flow rate, thrust com- 
ponents and moments are established by numerical integration over the 
solution surface corresponding to the LL index. The initial-values and 
the solution values are stored in the three-dimensional arrays contained 
in named common S@GLUTN. The first index of the arrays has dimension 2 
ana the initia] data and solution are identified by the variable sub- 
scripts L and LL respectively. These subscripts have the range 1 to 2 
and the particular values are mutually exclusive. The numerical inte- 
gration is performed by dividing the cross-section into triangular elements, 
and a two-dimensional equivalent of the trapezoidal rule integration scheme 
1s used, The area and centroid of each trianguler element are caiculated 
and the average mass flux, momentum fluxes and pressure are assumed to act 
uniformly over the element. Thus the force is considered as a pure force 
acting at the centroid of the element. The components of the force and 
“he components of the moment vector are assumed to act at the arigin of 
the coordinate system. The teatal thrust components are corrected by 
multiplying by the ratio of the mass flow rate on the initial-value sur- 
face to the calculated local mass flow rate. The calculated mass flow 
rate is some indication of the error in the integration scheme due to the 
presence of large gradients across the solution surface, and the correction 
procedure is based on the assumption that the specific impulse is caicu- 
lateu more accurately than the total force. 


d. eRRGRS. This subroutine consists of a collection of diagnostic 
messages for some of the anticipated mdes of failure of the program. The 
error messages can be either fatal or nonfatal depending upon the type of 
probl“m, These messages are printed by calling subroutine ERRGRS with an 
integer argument which designates the particular error. For fatal errors 
a program stop occurs within the subroutine, while for nonfatal errors a 
normal return is executed. 


e. ARJSUB. The speed of sound, A, the density, RB, the square of 
the velocity, QS, and the three partial derivatives of the speed of sound 
and density are determined as functions of the independent variables 
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pressure P, stagnation pressure PT, and stagnation enthalpy H. The sub- 
routine suppiied with tne pregram contains options for either a thermally 
and calorically perfect gas, or a real gas *. which the proverties are 
functions of the pressure only. The second oftion can be used only for a 
homentropic flow, and it permits either chemically frozen or equilibrium 
composition gases having real properties to be used. The subroutine has 
two entry points, AR@SB1 and AR@SB2, in addition to the normal entry. 

These entry points are used when the derivatives are not required. The 
first entry point is used whan A, R@ and QS are desired and the 

second when only A, RG, QS and T are required. The temperature, T, is 

used only for purposes of printout, and the name DADP in the argument 

list is used for transmission of this value. The subroutine AR®SB2 is 

used to initialize the subroutine AR@SUB. Any constant functiors are 
evaluated, and for the option having tabular data input, the data are put 
in proper units and the coefficients for the cubic spline interpolation 

are caiculated. In order to extend the capability of the program to 
include noniscenergetic and nonhomentropic flows of a real gas having 
either frozen or equilibrium chemical composition, it will be necessarv 

to expand or replace this subroutine. The replacement subroutine must 
include tabular input of the thermodynamic properties as functions of stag- 
nation pressure and stagnation enthalpy in addition to the static pressure. 
The subroutine must also include provision for calculating the three psrtial 
derivatives of the speed of sound and the density. Generally three- 
dimensional interpolation methods are required unless some of the data can 
be input as analytic functions. 


f. WALSUB, DETERM, ITER, and NS@LV. The subroutine WALSUB and 
associated subroutines, ERM, ITER and NS@LV, are a system which is 
used to describe the geometry of the solid boundaries. The WALSUB system 
supplied with the program includes options for conical and contoured axisym- 
metric nozzles, and super-elliptical, three-dimensional nozzle shapes. For 
other nozzle shapes it is necessary to reptace the WALSUB subroutine with 
a user supplied subroutine which has the same name and argument list (some 
change to subroutine READIN and named common WALSB is also required in 
order to include new input parameters and printout). The WALSUB subroutine 
is utilized in the program for locating points on the boundary. The coor- 
dinates of a point near the boundary and the direction cosines of 3 line 
through the point are transmitted to the subrcutine through the argument 
list. The subroutine subsequently locates the nearest intersection of the 
line with the boundary. The coordinates of the intersection are then 
retumed through the arqument list using the s.ve variable nates as used 
for the input point. The direction cosines of se outer normal to the sur- 
race are also transmitted through the argument list using the same variable 
names as the input direction cosines. The only restrictions on the bound- 
ary are that it be continuous and have continuous first derivatives. 


g. REFLCT. The logic for the r-flection of points and properties 
at points adjacent to planes of synmetry is contained in REFLCT for 
ICLASS equal to 1, 2 or 3 (i.e., for 3 or more, 2 or 1 planes of symmetry, 
respectively). The actual reflection of points and properties is accom- 
plished by calling one of the entry points in subroutine REFKY (i.e., REFKY, 
REFKZ or REFKS, for reflection about a Y-X, Z-X or on arbitrarily located 
plane of symmetry, respectively). The argument (K) is the first index of 
the poiit coordinates and properties stored in the arrays of named common 
S@LUTK, 
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h, REFKY. The reflection of the coordinates and properties ut a 
specified point with respect to a designated plane of symmetry is per- 
formed in REFKY. The particular olane of symmetry is specified by calling 
one of the three entry points REFKY, REFKZ or REFKS. The point to be 
reflected is identified by its indicies which are passed to the subroutine 
by means of the argument list. The general principles of reflection 
which are used in these subroutines are as follows: +) the image point 
is located such that the plane of symmetry is the perpendicular bisector 
of the line joining the point and the image point, 2) scalar properties 
are unchanged by reflection, and 3) vector properties are reflected such 
that the magnitude and the component parallel to tne plane of symmetry 
are unchanged while the component perpendicular to the plane of symmetry 
is reflected with opposite sense. The analytical development of the 
reflection process is presented in Yolume I. 


2. LINK Al 


a. SPLINE. This subroutine fits a cubic interpolation spline to 
an array of tabular data. A cubic polynomial is fit between each conse- 
cutive pair of points such that the slopes of the adjoining cubic poly- 
nomials ave matched at the data points. The slopes at the two end points 
of the array of data must be specified. The parameters of the argument 
list are: KN@T, number of data points in the table; XK(I), the value of 
the independent variable at the Ith data point; VALUE(I,1) the value of 
the dependent variable at the Ith data point: VALUE(1,2)., the slope at the 
first and last data points {i.e., I = 1 and } = KM@T}; and CBEF(3,1), the 
four coefficients of the cubic polynomial between the Ith and (7S jth 
points. 


b. MACHP. This subroutine uses the ARGSB? subroutine to obtain the 
pressure, P, and velocity magnitude, C, which correspond to a specified 
Mach number, M, stagnation pressure, PT, and stagnation enthalpy, H. A 
Newton-Raphson iteration scheme is used to obtain convergence after an 
initial estimate of the pressure is calculated using ideal gas relations 
with an assumed specific heat ratio equal to 1.2. The iteration is con- 
tinued until two successive values of the pressure agree to within 
0.0000001, or a maximum of 50 iteraticns are completed. In tne latter 
case a fatal error message is generated. 


c. S@URCE. The pressure and velocity magnitude of a spherical 
Source flow are calculated by a Newton-Raphson iterative scheme using the 
AR#SB1 subroutine to determine the thermodynamic properties. The mass 
flux at anv point in a spherical source flow can be determined from geo- 
metric and mass conservation principles if the mass flux is known at one 
point distinct from the source point. Thus, the mass flux is used as the 
independent variable for determining the individual properties such as 
pressure, density and velocity magnitude. In the argument list. POV is 
the mass flux, H] the stagnation enthalpy, PTl tne stagnation pressure, 
PRESS the pressure, and Q the velocity magnitude. The iterative process 
continueszuntil two successive pessures agree to within less than 
1.0 x 10 ° percent, or a maximum of 50 iterations is exceeded. In the 
latter case a fatal error message is generateu. An initial approximation 
of the pressure, PSGURC, is required and is stored in named common /ARGI/. 
\fter the subroutine has been called once, this initial guess wil] be taken 
as the previously obtained answer. 
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d. INVALS. The dependent variables u, v, w, p, P and H are calcu- 
lated at a desTqnated point of the initial-value surface. The particular 
point is identified by the indicies transmitted in the argument list, (1,4). 
Four flow modeIs may be selected by specification of a value for IVSTYP 
ranging from] to 4. The four options include: for IVSTYP = 1, a uniform 
Flow having a specified Mach number and flow direction; for IVSTYP = 2, a 
sphericel, homentropic source flow; for IVSTYP = 3, an axisymmetric, non- 
homentropic, and nonisoenergetic flow which is specified by tabular input 
of Mach number, flow direction, stagnation pressure and stagnation enthalpy 
as functions cf the radius; and for IVSTYP = 4, a user supplied subroutine 
which can be used to provide any desired flow model. The indicies in the 
argument list permit the subroutine to locate the Y and Z coordinates of 
the point at which the depencent variables (the velocity components, the 
pressure, the stagnation pressure and the stagnation enthalpy) are to be 
calculated. The subroutine subsequently evaluates the dependent variables 
as functions of the spatial coordinates X, Y and Z. The subroutine must 
be initialized by calling the second entry point INVAL2 which does not 
have an argument list. 


e. IVSUB. This subroutine is normally supplied by the user, thus 
allowing any flow model desired to be programed for generation of the 
initial-value surface data. A sample subprogram is supplied with the pro- 
gram to serve as an example. It consists of the super-position of two 
spherical sources as an approximation to a skewed flow. The subroutine 
15 Hh alae by calling the second entry point, IVSB2 (this is done by 
INVALS). 


3. LINK A2 


a. BRAIN. The marching type integration between parallel planar sur 
faces is regulated by this subroutine. The integration DJ loop ranges are 
Calculated as functions of the number of planes of symmetry, and if a 
Start from tape has been specified, the initial-value surface data are 
read from tape, the thrust data are calculated, and the initiel-value sur- 
face dati are printed. The subroutine subsequently calculates the net 
points over the boundaries and the interior of the flow and prints out 
the solution for each successive solution surface. A check is made on the 
Xl coordinate of each new surfac@ to see if the specified integration dis- 
tance, XMAX, has been exceeded, and if so, the X1 coordinate of the last 
solution surface is adjusted to coincide with XMAX. 


b. INTERP. The second-order bivariate interpolating polynomials are 
fit by the method of least squares to a group of nine neighboring points 
in this subroutine. The nine points are selected by manipulation of the 
indicies of the storage arrays for the six dependent variables, the veloc- 
ity components u, v, w, the pressure, p, the stagnation pressure, P, and 
the stagnation enthalpy, H. The indicies of the points are determined 
relative to the indicies of the base point in the initial-value surface 
using stencils of index increments stored in the data arrays IK and JK. 
Nine different stencils are available and the particular one to be used 
at a given point is determined from the leading digit of the integer label 
ALASS, which is assigned initially by the subroutine LABEL. A system of 
six simultaneous, linear, algebraic, least squares equations are solved 
for the polynomial coefficients using the subroutine SLAES. 


c. SLAES. This subroutine is an adaption of the IBM library sub- 
routine GELS for the solution of systems of symmetric linear algebraic 
equations. The subroutine is used only by subroutine INTERP to scive 
the sixth-order least squares system of equations, and thus has fixed 
dimensions for the coefficient arrays A and R. The 21 coefficients of 
the upper half of the symmetric coefficient matrix are stored colunnwise 
in the array A, and the polynomial coefficients of the polynomials are 
stored columwise in the array R (named B in all other subroutines and 
contained in labeled common INTRP). 


d. XRGTR. The main entry of this subroutine is called after each 
point calculation for the purpcse of calculating the permitted step size 
and searching for the most restrictive point on the solution surface. The 
entry point XRGTi is called after the entire solution surface has been 
generated for the purpose of predicting the step size to be used for the 
next solution surface. The prediction of the new step size is based on 
the permitted step size for the present and previous solution surfaces at 
the most restriction point of the present surface. A safety factory, SAFTY, 
is used as a multiplier for the predicted step size and reflects past exper- 
jence with respect to whether previous predicted step sizes were too opti- 
mistic or too conservative. 


4. LINK BI 


READIN. All input data and parameters are read from cards by this 
subroutine. It is the first subroutine called by the main program. Vari- 
able printed outputs are generated which depend upon the type of problem 
which is specified by the input data. With the exception of the title, 
which is input on the first data card, al] data input is by means of the 
four namelists, CNTRLL, WALSBL, ARJSBL, and IVSL. Some of the input para- 
meters are checked for consistency and if any conflicts are found, appro- 
priate error messages are generated. The nozzle contour data are checked 
to see if any of the coordinate piane intercepts are conical (i.e., straight 
lines). The intercept is assumed to be conical if the slopes et the tan- 
gent point and at the exit are equal. The nozzle exit radius is then cal- 
culated to correspond to the wall slope and the nozzle length, thus elim- 
inating the possibility of conflicting input data. 


5. LINK B2 


a. WALSB2, eee, TESS, EXP§ and CROUT. These subroutines are used 
for initialization cf the WALSUB group of subroutines which are used to 
define the nozzle boundary. The subroutine WALSB2 contains the logic for 
generating the possible wall contour variations and cal!s the other sub- 
routines as appropriate. CPMATE is used for calculation of the coeffi- 
cients for the equations, circles and general parabalas, which are used 
to define the nozzle-coordinate plane intercept contours. TESS is used to 
test to see if the intercept parameters are al] equal in each quadrant. 
EXPG is used to calculate the coefficients for the quadratic equations 
which are used to specify the variation of the super-elliptical exponents 
as a function of nozzle length. CRQUT is a library subroutine for the 
solution of systems of linear, simultaneous algebraic equations and is 
called only from subroutine CPMATE. 
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b. AR3SB2. This subroutine is used for initialization of the ARBSUB 
subroutine. If a thermally and calorically perfect gas is specified, then 
only five functions of the specific heat ratio, GAMMA, are calculated. If 
the gas properties are specified by mens of tabular input, then the data 
are put in the proper units and checked for monotonic variation of the 
independent variable, Mach nismber, M. Subroutine SPLINE is used to fit 
cubic splines to the data points. 


6. LINK B3 


IVSURF. The network of points on the initial-value surface are gen- 
erated, and the coordinates are stored in the Y and Z arrays. These points 
define the streamlines which are subsequently extended to each new solution 
surface. The network is varied depending upon the number of planes of sym- 
metry and the characteristic dimension of the surface arrays, NP. The 
outermost points of the system of points are located on the flow boundary 
by the use of WALSUB. After the coordinates of each point have been cal- 
culated, the subroutine INVALS is called for the purpose of calculating 
the values of the dependent variables on the initial-value surface. If 
planes of symmetry exist, the reflection of all properties is effected by 
calling REFLCT and by reflecting directly the properties PT and H. The 
reflection of PT and H is done separately from the reflection of the pro- 
perties velocity and pressure, because this operation is required only 
once on the initial-value surface, whereas the other properties must be 
reflected at each new sr ?tion surface. 


7. LINK B4 


a. PRNIVS. This subroutine produces a printout of the initial-value 
Surface data and the thrust parameters. Three options are available: 
1) print thrust data, boundary point data, and interior point data; 2) print 
thrust parameters and boundary point data only; and 3) print thrust para- 
meters only. 


b. INTXRG. Initial data fur the X] step size regulation are generated. 
The subroutine sweeps over the array of points ana generates the relative 
step size parameter, DXDL, and the distance to the nearest point, RM, at 
each point on the initial-value surface. At the same time a search is made 
for the most restrictive point. After completion of the sweep, the per- 
mitted integration step size is calculated at the most restrictive point. 


c. LABAL. Labels are generated for each point in the initial-value 
surface arrays which are used to determine the type of stencil (see Volume J, 
Appendix G) to be used for selection of neighboring points for interpolaticn. 
The label consists of a two digit integer which is stored in the array KLASS. 
The first digit is ured to denote the one-eighth sector of the array (nusber- 
ing is counterclock wise from the Y axis) in which the point is located, and 
the second digit designates one of nine stencils for use in interpolation. 
The stencil variation is required to account for different boundary points 
arrangements, and to obtain the nearest neighbors of each point in the array. 
The label is used by subroutine INTERP to select one of the nine stencils 
stored as data and, through index manipulation, to generate the indicial 
coordinates for the system of points to be used for interpolation. In gen- 
eration of the indicial coordinates, the particular one-eighth sector of the 
grid, designated by the first digit of the label, is considered. 


Ti 


8. LIRK Cl 


a. BRUNDR. This subroutine contains the logic for integration over 
the boundary points of the flow. It is a subdivision of the overall logic 
Subroutine BRAIN which was written separately in order to permit overlayine 
the subroutines for boundary point and interior point calculation. 


b. BPTSUB. In this subroutine, the location and properties of a new 
boundary point of the flow are calculated by the second-order method of 
characteristics technique developed in Volt. 1. The arqument list consists 
of the coordinates and the stagiation pressure and stagnation enthalpy of 
the streamline along which the solution is to be extended, and the qmordinates, 
dependent variables, and relative step size parameter at the new solution 
surface. The interpolating polynomials are generated by subroutine INTERP. 
These equations are used to generate values for the dependent variables at 
the points in thc initial-value surface which are used in the in.egration 
process, including the streamline intersection at which the values are 
known (the interpolated values are used at the streamline intersection for 
stability reasons). The position of the solution point is approximated 
and WALSUB is called to establish the point on the boundary and to calculate 
the components of the unit outer normal to the boundary. The reference 
vector system, u./q, a,, and Bs, is established at the new point such that 
8. coincides with the duter nofmal. Next the network of three bicharacteristics 
and the streamline is constructed, and the dependent variables are determined 
at the intersections of the bicharacteristics and the streamline with the 
initial-value surface using the interpolating polynomials. The reference 
vector set u./q, a;, and 8; are next established at each of the network 
intersectiond with'the initial-value surface, Finally the new values for 
the dependent variables at the solution point are obtained by simultaneous 
solution of the compatibility equations using the subroutine BCOMPT. A 
convergence test is made to see if the vaiues of pressure on two successive 
iterations agree fractionally to within 0.0001. hen convergence is obtained, 
the step size requlating parameter DXDL is evaluated. 


c. BCQMPT, This subroutine is a subdivision of BPTSUB and performs 
the solution of the compatibility equations for the new values of the 
dependent variables at a boundary point. All parameters and the solution 
are transmitted to BPTSUB through the labeled common block /PTSUB/. Cramer's 
rule is used for soluticn of a system of four equations for the four 
unknown velocity components us and the pressure p. 


9. LINK C? 


a, INTER, This subroutine contains the logic for integration over the 
interior point of the flow and is also 2 subdivision of BRAIN to permit 
overlaying the interior and boundary point integration subroutines. 


b. IPTSUB. This is the basic integration subroutine for interior 
points and is essentially the same as BPTSUB. The differences are that 
four bicharecteristics are used instead of three and the reference vector 
set u./q, x,, and 8, are oriented with respect to the pressure gradient 
rathel than'the boundary outer normal as in BPTSUB. In this case the vectors 


F and 8, are chosen such that they straddle the plane formed by the two 
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vectors u, and Vp. A separate subroutine, GJHPAT, is used for solution of 
the compatibility equations, which in this case includes the fourth bichar- 


acteristic compatiblity equation rather than the boundary tangency condition. 


All other operations are the same as in BPTSUB. 


c. (CQHPAT. This subroutine is a subdivision of IPTSUB which includes 
the solution of the compatibility equations for the values of the cependent 
variables at the solution point. The subroutine is essentially the same 
as BOGHPT except that the fourth bicharacteristic compatibility equation is 
used instead of the boundary tangency condition. 


10. LIRK C3 
PRRSUT. This subroutine is used for printing the properties at each 
new solution surface and is essentially the sam as PRNIVS. The differences 


are only in the headings which are printed. A separate subroutine was 
utilized because of convenience in generating the overlay structure. 
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SECTION T¥ 
INPUT PARAMETERS 


1. INTRODUCTION 


The various options which are available in the program are specified 
by certain input parumeters and data which are entered through tne four 
NARELISTS CNTREL, WALSBL, ARGSBL, and IYSL. Gnly those parameters and 
data which are pertinent for a particular option need to be input. Many 
parameters have default values which are set by the block data subpregram 
and may not need to be specified for this reason. The parameters of each 
namelist are described in the following discussion, ard where apprupriate, 
both default and typical values are given. 


2. TITLE CARD 


The first card of each data deck is a title card consisting of 72 
alphanumeric characters of identifying information. Inis card may be 
blank, or contain any combination of allowable FORTRAN characters. This 
card must always be the first card of the data dack, even if no information 
is specified on the card. The format of the card is (1246). 


3. NAMELIST CNTRLL 


IYSTYP Ar, integer parameter used to select one of four initial-value 
surface options as follows: 


value initial-value surface option 


« 


i uniform, parallel flow 
2 homentropic, spherical source flow 


3 axisymmetric, nonisoenergetic and nonhonentropic 
fiow specified by tabular data 


4 user supplied subroutine called IVSUB 


The parameter IVSTYP must be specified; there is no default value. The 
data needed to establish the initial-value surface are input through 
NAMELIST IVSL. For the subroutine IYSU8 supplied with the program, the 
properties on the initial-value surface are calculated by superimposing 
two homentropic, spherical source flows, producing an approximation for 
a skewed inlet flow. 


NP An integer specifying the nunber of mesh peints along the posi- 

tive y-axis (i.e., the % coordinate direction in the initial- 
value surtacel The total number Of points on the initial-value surface 
and for each solution surface) depends on the value of NP and the number 
f planes of symmetry (XPAS $n NAPELIST EYS4). The maximum value which 
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NP can haye is determinea by the number of plar.s of symmetry and the 
dimensions of the arrays in NAMED COMMON S@LUIN and KRGLT. For array 
dimensions (2, N, Nj, the following relations apply: 


NPGS NP 
planes of NP (maxi mum) torai points on 
symmesry (maximum) (for N29) = each _solu*ion plane 
0 (1 1)/2 15 (2np - 1)? 
1 (N+ 1)/2 18 NP(2NP - 1) 
2 N-2 27 (np)? 

3 or more N- 2 27 NP(NP + 1)/2 


The parameter NP must be snecified; no default value is given. Experience 
to date has shown that NP should be at least 11 for most nozzle problems. 
In ceneral, the value required to obtain accurate results will depend upon 
the gradients present in the flow, i. e., tne larger the gradients, che 
greater the required number of points. It must also be considered that 

the number of points determines the computer time to solve a given problem. 
The time is proportional to the cube of NP. The CDC 6500 version of the 
program bas built-in array dimensions of (2, 29, 29), and the IBM 7094 
version has built-in array dimensions of (2. 19, 19). These values can 


be easily changed depending on the amount of storage available for exparsion. 


XMAX A parameter which specifies the value in inches along the X, 
direction at which the integration is to be terminated. The X, 
coordinate of the last integration plane will be automatically adjusted to 
coincide with this value. Normally this value will specify the end of the 
nozzle or passage being analyzed. The specified value for XMAX should be 
greater than the value of XIYS. A default value of 0.0 is specified. but 
this value will cause an error message to be generated and the job to be 

terminated. 


PRINT] An integer parameter which centrols the type of printed output as 
foilows: 


value printed output 


6 thrust parameters at each solution plane and flow 
pronerties at boundary points and interior points 


1 thrust parameter: at eacl, solution plane and flow 
properties at bo.dary points 


ra thrust parameters at each solution plane 


A default value of C is specified. 


mak 
ay 


EO a Oo eae Be RR el re mt a RE FSS Ees =. 27> SS SS EEE ESSE ee a eT 
3 = SS SS Se Oa SRE EEE a SET ae 


He selfs niall GE 


i 


iu 


it 


Hite aL 
Wit 


en 


PRINT2 An integer parameter which controls the quantity of printed out- 
put as follows: 


value printed output 
] at every point 
2 at every other boundary and interior point 
3 


at every third boundary and interior point 
N at every Nth boundary and interior point 


Note thet the quantity of printout may be suppressed by the value of PRINTI. 
A default value of 1 is specified. 


NSTART An integer parameter used when the capability to restart from tape 
*s desired, NSTART controls the storage and retrieval of the 
solution values from the file tape (TAPE 7) as follows: 


Value control 
negative suppresses al] tape operations 
0 solution values written on tape 


positive solution values are retrieved from the file tape 
at solution surface NSTART and the integration 
will begin at surface NSTART + 1. New solution 
surfaces are written on the file tape. 


When the restart capability is to be used, it is assumed that the file 
tape is mounted and the interlock set to permit writing on tape. The 


defauit value is ~1. For some systems it may be necessary te change the 
tape number of the file tape. : 


ERRO® A parameter used to specify the fractional convergence tolerance 


to be used in the intejration subroutines. A cefault value of 
0.000] is specified. Experience has shown that smaller values generally 


do nat impreve the absolute accuracy of the solution fer practical step 
sizes, 


4. NAMELIST WALSRBL 


The data which are input thnwgh this namelist are designed specifi- 
cally for the type of boundaries which are incorporated in the subroutine 
WALSUB supplied with the program. If another WALSUB subroutine is used, 


this namelist and the associated print routines in the subroutine READIN 
will need to be revised. 
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NSYMMY An integer pDarameter used to specify the symmetry of the flow 
boundaries as follows: 


value boundary specifications 
7} axisymmetric contour 
2 super-elliptical contour with two planes of symmetry 
3 completely nonsymmetric, super-elliptical contour 


The default value is 1. 


YAXIS A parameter specifying the X, coordinate of the axis of the nozzle 
contour. If planes of symmetry exist and are to be used to reduce 


the amount of computation, they must intersect at this axis. The default 
value is 0.0. 


ZAXIS A parameter specifying the X, coordinate of the axis of the nozzle 

contour. If planes of symmetry exist and are to be used to reduce 
the amount of computation, they must intersect at this axis. The default 
value is 0.0. 


The next twenty-one parameters are one-dimensional arrays of up to 
four values each which are used in the description of the super-elliptic 
boundary described by the equation 


y EXPY F z EXPZ a) 
Yo Zp 
where Y » EXPY and EXPZ are functions of the axial coordinate xX 


’ . For 
an axis$mme ric contour (NSYMMY = 1) the variables EXPY = EXPZ = 2 \nd 

Y, = 4 in each quadrant, where Y, may be a function of X,. For a super- 
ellipt cal contour with two pl anes of symmetry (NSYMMY = ae the variables 
EXPY, EXPZ, Y, and may each be functions of X, but che functions are 
identical in Both quadrants. For a completely nonsymme tric, super-elliptical 
boandary the variables EXPY and EXPZ may be different functions of X, in each 
quadrant, and the intercepts Y, and Z, may be different functions of X, in 
each coordinate plane. Al though default values are specified for all hhe 
parameters, these values do not specify a meaningful contour. 


The first seven parameters discussed below specify the intersection 
of the contour with the (X,.X)), (X, Xa), (xX, 4-X ), and (X,,-X,) coordinate 
planes, respectively (i.e., the values~for Y and Z, as fudctidns of the x 
coordinate). For an axisymmetric boundary, Bnly the first value in each 
array needs to be input. For super-elliptical boundaries having two planes 
of symmetry (regardless of whether or not the flow has planes of symmetry), 
only the first two parameters of each array need to be input. For super- 
elliptical nozzles having one or zero planes of symmetry, al! four para- 
meters in each array must be input. The contour intersections with the 
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coordinate plane (X,.X,). (X,.X.). Xo a= Xq) or (X,.-X.) consist of a 
circular arc joined'tafigentidll? to a'parSbola. Figure 2 illustrates the 
contour intersection with the (Xy sXq) coordinate plane. 


XT A one-dimensional array of up to four values for the axial 

locations in inches, of the centers of the circular arc portions 
of the contour intersections with the four coordinate reference planes 
(see Figure 2). The default values are 0.0. 


RT A one-dimensional array for the distance, in inches, from the X 

axis to the minimum point on the circular arc sections of the 
contour intersections (i.e., the local throats, see Figure 2). The 
defauit values are 1.0. 


Re A one-dimensional array for the radii of curvature, in inches, 
of the circular arc sections of the contour intersections (see 
Figure 2). The default values are 1.0. 


THETAT A one-dimensional array for the slopes, in degrees, of the contour 
intersections at the point of tangency between the circular arcs 
and ;irabolas (see Figure 2). The default values are 0.0. 


XE A one-dimensional array for X, coordinates, in inches, of the 
exit points of the contour intersections (see Figure 2). The 
default values are 0.0. 


RE A one-dimensional array for the -adii, in inches, from the X, axis 

to the exit points of the contour intersections (see Figure by, 
For an axisymmetric, conical nozzle (i.e., THETAT = THETAE), RE does not 
have to be specified. The de:ault values are 0.0. 


THETAE A one-dimensional array for the slopes, in degrees, at the exit 
point of the contour intersections (see Figure 2). The default 
values are 0,0. 


The remaining 14 parameters are one-dimensional arrays of up to four 
values each giving the variaticn of the two super-elliptical exponents 
(EXPY and EXPZ in Equation 1) with the X, coordinate. Each quadrant of 
the super-elliptical contour may have separate functions corresponding ta 
each of the four values of the arrays. Each set of 14 parameters is per- 
tinent to one quadrant of the flow space. The first set corresponds to 
the space bounded by the (X,,%,) and (X,,X,) coordinate planes, the second 
set corresponds to the space bounded by! thé (X, 9X ) and (X, »-X5) scordinate 
planes, the third set corresponds to thy space bolnded by the UX on Xy} and 
(Xy > ) coordinate planes. and the fourth set corresponds te thé space 
bounded by the (X,,-X,) and (X,,%,) coordinate planes. For axisymmetric 
contours (i.e., nSYMMY =), tie &xponents are not used and need not be 
specified. For super-elliptical contours having two planes of symmetry 
only the first value in each of the i4 arrays needs to be specified. For 
general super-elliptical contours (NSYMMY = 2), all four values of each 
array must be specified. The variation in the exponents is described 
by two independent quadratic functions which are completely determined by 
specifying the exponents at three distinct points, and the cerivative of 
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FIGURE 2. NOZZLE CONTOUR PARAMETERS 


the exponent with respect to X, at the center point. The first quadratic 
function describes the exponent between the first two points, and the 

second quadratic function describes the exponent between the second and 
third points. The default values are such that the exponents vil] be every- 
where equal to 2.0. 


XY] One-dimensional arrays for the X, coordinates, in inches, 
XY2 of the three points used to speci fy the x, variation of the 
XY3 exponent EXPY in Equation 1. 


EXPY] One-dimensional arrays for the values of the super-elliptical 
EXPY2 exponent EXPY in Equation 1 at the X, positions specified 
EXPY3 by XY1, XY¥2 and XY3, respectively. 


DEDXY2 A one-dimensional array for the values of the * derivative 
n 


of the super-elliptical exponent EXPY in Equation 1 evaluated 
at Ky = X¥2. 
XZ] One-dimensional arrays for the X, coordinates, in inches, 
XZ2 of the three points used to spect fy the k variation of the 
XZ3 exponent EXPZ in Equation 1}. 


EXPZ} One-dimensional arrays for the values of the super-elliptical 
EXPZ2 exponent EXPZ in Equation 1 at the x nositions specified by 
EXPZ3 XZ1, XZ2 and XZ3, respectively. 


DEDXZ2 A one-dimensional array for the values of the X, derivative of 
the super-elliptical exponent EXPZ in Equation 1 evaluated at 
X, = XZ2. 
1 


5. NAMELIST ARQSBL 


The data which are input through this namalist are the ambient static 
pressure and the thermal and caloric equations of state for the fluid being 
considered. Two models for the equations of state are available. The first 
is a thermally and calorically perfect gas, and is chosen by specifying a 
value for GAMMA greater than 1.0. With this model, variations in stagnation 
pressure and enthalpy can be accounted for in the Flow field. The second 
is a gas with frozen or equilibrium chemical composition in which the 
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pressure, temperature, density and speed of sound are one-dimensional functiuns 
of Mach nunber specified by tabular data. This optio:: is implemented when 
GAMMA is not specified, or when the specified value of GAMMA js one or less. 
With this option the flow must be homentropic and isoenergetic (i.e., stagna- 
tion pressure and enthalpy both uniform throughout the flow). 


PAMB The ambient static pressure in psia. The default value is @.0. 


GAMMA The specific heat ratio for a thermally and calorically perfect 
gas. The default value is 0.0. 


RGAS The gas cons tant for the thermally perfect gas in units of 
(ft-Ibf)/(1bm--R). The default value is 1.0. 


If the therma’’y and calorically perfect gas model is used, no further 
values need be spec. fied in NAMELIST AR@SBL. The next five parameters are 
one-dimensional arrays of up to 30 values each for the tabular thermodynamic 
data. The Mach number, MTAB, is the independent variable for the tabular 
data, and its values must increase monotonically and cover the renge of 
Mach numbers which will be encountered in the integration process. Normally 
this range should extend from a Mach number slightly less than 1.9 to a 
sufficiently high Mach number for the particular problem. Tabular values 


of the dependent variable arrays must correspond to the appropriate value 
of Mach number in MTAB. 


MT AB A one-dimensional array of up to 30 values for the Mach number, 


which is the independent variable for the tabular data. No 
default values are specified. 


PTAB A one-dimensional array cf the values of absolute static pressure, 


in psia, which correspond to the values of MTAB. No default 
values are specified. 


ATAB A one-dimensional array of the values ef the speed of sound, in 


ft/sec, which correspond to the values of MTAB. No default 
values are specified. 


ROTAB A one-dimensional array of the values of density, in lbm/ft?, 


which correspond to the vaiues of MTAB. No default values 
are specified. 


TTAB A one-dimensional array of the values of static temperature, in 

R, which correspond to the values of MTAB. Since the static 
temperature is not used in the computations, these values are only used 
to determine the temperature to be printed out. They can be omitted if 
desired. The default values are 0.0. 


21 


The variables PTAB, ATA8, RETAB and TTAS are dimensioned in the program 

as (30,2). The actual parameter values are stored in the two-dimensional 
array with the second subscript equal to 1. The locations specified by 

the second subscript equal to 2 are used in curve fitting of these parameters. 


6. NAMELIST IVSL 


The data which ere input through this namelist are used to esi ‘blish 
the initial-value surface. The type of initial-value surface is selected 
by the choice of the parameter for IVSTYP in NAMELIST CNTRLL. 


NPQS An integer parameter specifying the number of common planes of 

symmetry for both the initial data and the boundary contour. 
Values of 0, 1, 2, 3, 4, 5, 6, 7, or 8 may be specified. A default value of 
0 is specified. 


XT VS The X, coordinate of the planar initial-value surface in inchas. 

When i source flow initial-value surface is specified (i.e., 
IVSTYP = 2), the source flow spherical surface is positioned symmetrically 
abount the X,-axis so that the spherical surface intersects the nozzle wall 
where the wall slope and source flow angle are equal. The X, coordinate of 
the intersection of the source flow surface with the X,~-axis 1, then set 
equal to XIVS, so no input value is required. The properties on a plane 
perpendicular to the X, “axis Jocated at X, = XIVS are then calculated ‘ising 
the properties of the source flow. When lystyP = 1, 2 or 3, XIVS must be 
input to locate the initial-value surface. The dofault value is 0.0. 


YCIyS The ky and X, coordinates of the central point of the initial- 

value surface in inches. Normally these should be the coordinates 
ZCIVS of the area centroid of the initial-value surface. For axisym- 
metric nozzles and super-elliptical nozzles having two planes of symmetry 
{i.9., NSYMMY = 1 or 2), tnese coordinates should coincide with YAXIS and 
ZAXIS, respectively. The default values are 0.0. 


The following three parameters must be specified for initial-value 
surfaces specified by IVSTYP = 1 (uniform flow), IVSTYP = 2 (source flow) 
and IVSTYP = 4 (double source flow sc’ routine IVSUB which is supplied 
with the program). 


MCIVS The Mach number at the central point (YCIVS, ZCIVS) of the initial- 
value surface. This value must be yreater than unity. Ne 
default value is specified. 


PTCIVS The stagnation pressure in psia at the central point of the 
initial-value surface, No default value is specified. 


HCI VS The stagnation enthalpy in Btu/lbm at the central point of the 
initial-value surface. No default value is specified. 


The following four parameters are applicab’e to the types of initis!-~ 
value surfaces as indicated. 
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THECIV (For IVSTYP = 1) The pitch angle, in degrees, of the velocity 

vector for a 'miform flow. The pitch angle is the angle between 
the projection of the velocity vector on the (X;,X2; coordinate plane and 
the X; axis. The default value is 0.0. 


PHICIY (For IVSTYP = 1) The yaw angle, in degrees, of the velocity vector 

for 2a uniform fiow. The yaw angle is the angle between the 
velocity vector and its projection on “he (X],X2) coordinate plane. The 
default value is 0.0. 


ALPSRC (For IVSTYP = 2 or 4) The spherical source half-angle, in degrees, 


of the initial-value surface source flow. No default value is 
specified. 


BETSRC (For IVSTYP = 4) A parameter specifying the secind source offset 


angle, in degrees, in the double source model. No default value 
is specified. 


The following six parameters are one-dimensional arrays of up to 30 
values which are used to specify tabular initial-value surface properties 
for IVSTYP = 3 (i.e., for an axisymmetric, nonisoenergetic and nonhomentropic 
initial-value surface). These parameters do not need to be specified for 
I¥STYP = 1, 2 or 4. The initial-value surface is a plane parallel to the 
(Xo ,X4) coordinate plane and intersecting the X; axis at XiVS. The data 
points must extend from the center of the initial-value surface (first point) 
to the outer contour (last point) but need not be equally spaced. The initial- 
value surface used by the program for computing the flow is constructed by 
fitting a third degree spline to the tabular data and interpolating for the 
variables at the desired points. Since the flow is axisymmetric, it is 
assumed that values are specified along the Xp coordinate direction, and 


these values are rotated around the Xj axis to cover the entire initial- 
value surface. 


RIVS A one-dimensional array of up to 30 values for the radial coordinate 
values (Xp values) at which the flow variables are to be specified 

on the initial-value surface. The first value must be 0.0 and the last 

value must coincide with the radius of the contour at X] = XIVS to within 

+ 0.0001 inches. The dimensiors are inches. No default values are specified. 


MIVS A one-dimensiona? array of the Mach numbers corresponding to the 
table of radial coordinates RIVS. No default values are specified. 


PTIVS A cne-dimansional array of stagnation pressures, in p»ia, corre- 
sponding to the table of radial coordinates RIVS. No .‘sfault 
values are specified. 


HIYS A one-dimensional array of stagnation enthalpies, in Béu/ibm, 
corresponding to the table of radial coordinates RIVS. No default 
values are specified. 
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THETIY A one-dimensional array of the pitch angles, in degrees, corre- 

sponding to the tabie of radial coordinates RIVS. The pitch 
angle is defined as the angle between the projection of the velocity vector 
on the (X],X2) coordinate plane and the X; axis (assuming the tabular data 
are specified along the Xp coordinate direction}. No default values are 
specified. 


PSITY A one-dimensional array of the swirl angles, in degrees, corre- 
sponding to the table of radial coordinates RIVS. The swirl 
angle is defined as the angle begween the projection of the velocity vector 
= on the (Xo,%3) coordinate plane and the Xp axis (assuming the tabular data 
are specified along the Xp coordinate direction). No default values are 
specified, 
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The variables PTIVS and HIVS are dimensioned in the program as (9,2). The 
actual parameter values are stored in the two-dimensional array ith the 
second subscript equal to 1. The locations specified by the second sub- 
script equal to 2 are used in curve fitting of these parametecs. 
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SECTION V 
SAMPLE CASES 


In this Section, eight sample cases are presented to illustrate the 
application of the computer program t. several exhaust nozzle problems. 
All of the options of the procram are illustrated by at least one of the 
sample cases. However, due to the large number of possible conbinations 
of initial-value surface types, flow chemistry possibilities, and nozzle 
geometries, ali of the possible combinations are not considered, in each 
Sample case, the problem to be analyzed is discussed, the necessary input 
data are developed, a figure showing the input cards is presented, and 
selected portions of the computer outcut are illustrated. The first four 
cample cases consider axisymmetric, contoured nozzles with various initial- 
value line options and gas chemistries, the next two cases illustrate the 
Super-elliptical contour optior, and the last two cases demonstrate the use 
of tapes for storing the solution and restarting from tape. The input cate 
discussions foilow the order in which the input parameters are presented in 
Section [¥. In each of the eight cases, the TITLE CARD, which is always 
the first card in a data deck, identifies the sample case number. in all 
eignt of the sample cases, tie number of points (i.e | SF in NAMELIST CATRLL) 
is set at 7. In general, it 4s recommended that NP be of the order of 1] 
to obtain satisfactory accuracy. However, computing time is proportional 
to the cube of NP, so the iower value was employed strictly to reduce the 
running time of the sample cases. The objective of presenting the sample 
cases is to illustrate the preparation of data decks, and not to demcnstrate 
accuracy. The running time on both the CDC 5500 and IBM 7094 computers for 
all sample cases is included in each sample case discussion. 


1. SAMPLE CASE 1 


The first four sample cases al! consider the same axisymmetric, con- 
toured nozzle with varisas combinations of initial-value surface types and 
gas chemistries. For sample case 1, a homentropic, spherical, source ficw 
initial-value line is selected with 7 points along the positive y-axis. Thus, 
IVSTYP = 2 and NP = 7. The nozzle flow field is desired out to a length of 
10 inches, so XMAX = 10.0. All calculated points are to be printed, so 
PRINT] and PRINT2 are left at their default values of 0 and 1 respectively. 
No tape operations are desired, so NSTART is left at its default value of -1. 
The default value of 0.0001 for the fractional convergence tolerance, ERRIR, 
is chosen, so no value is input. This completes the specification of 
NAPELIST CNTRLL. 


Since the nozzle is axisymmetric, NSYMHY retains its default value of 
1, The nozzle axis is aliqed with the flow field axis by allowing YAXIS 
and ZAXIS to remain at the default values of 0.0. Since the nozzle is axisym- 
metric, only the first value of each array specifying the contour needs to 
be specified. The throat is located at X; = 0.0, the throat radius is 1. 
inch, and the throat radius of curvature is 1.0 inch. Thus, XT, YT and! 
are left at their default values. the inflection point between the cipcu 
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THETAT = 36.0. The nozzle exit is specified by XE = 10.0, SF = 4.0 and 
THETAE = 13.0. A general parabola is fit between the inflection point and 
the nozzle exit. The remaining parameters in the wall specification are 
employed only for super-elliptical contours, so they need not be considered 
here. This completes the specification of NAMELIST WALSBL. These same 
speci, ications will be used in sample cases 2, 3 and 4. 


For all of the sample cases, the ambient pressure wil. be set at zero. 
Thus, the default value will be employed. Sample cases 1, 3, 4, 5 and 6 
will all consider a thermally and calorically perfect gas with y = 7.4 
and R = 53.3 (ft-1bf)/(ibm-OR). Thus, GAMMA = 1.4 and RGAS = 53.3. No 
other values are required for this option. This cc:.pletes the specification 
cf NAMELIST AR@SBL. 


The last set of parametersspecifies “theinitiz]-value surfece properties. 
Sample cases 1, 2 and 3 all] employ a source flow initial-value surface 
(i.e., IVSTYP = 2 in NAMELIST CNTRLL). Sample cases 1 and 2 are identical, 
both having 4 planes of symmetry; thus NP@S = 4. ‘nis value of NPS results 
in a 45° sector of the flow field being evaluated. The rsmaining 315° sector 
can be obtaining by reflection. For a source flow initial-value surface, 
XIVS does not need to be specified. YCIVS and ZCIVS are ieft at their 
default values of 0,0 to agree with YAXIS and ZAXIS as specified in NAMELIST 
WALS8L. The Mach number is 1.10, the uniform stagnation pressure is 
1000.0 psia, and the uniform stagnation enthalpy is 1255.0. Thus, MCIVS = 
1.10, PTCIVS = 1000.0, and HCIVS = 1255.0. The only remaining parameter 
required to specify the source flow is the source angle, which is chosen as 
10.0°. Thus, ALPSRC = 10.0. None of the remaining parameters are required 
for this option. This completes specification of NAFELIST IVSL. 


Figure 3 presents a listing of the data deck for sample case 1. Note 
that only the parameters required by the varicus options are specified, and 
narameters whose default values are correct are not specified. Should it 
be desirable to specify al] parameters actually emp}oyed even if the value 
chosen is the default value, this can be done. The omission of parameters 
with satisfactory default values was made purely to save time in the pre- 
paration of the data deck. 
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Figure 4 is a complete listing of the output from sample case 1. The 
first tvo pages describe the problem being considered, the third page contains 
the initial-value surface data, and the remaining pages contain the data at 
succeeding solution planes. The first *wo pages are self-explanatury. The 
format of the remaining pages is nearly identical, the only differerces 
being in the mass flow, thrust and moment data. On the initial-value sur- 
face, the actual calculated mass flow rate, thirst, and moment values are 
listed. The thrust is specified in rectangular components, and sions are 
chosen so that the values shown are the forces exerted on the fluid-by the 
nozzle walls and planes of symmetry. To obtain forces acting con the walls 
and planes of symmetry, the sions must be reversed. The moments are evaluated 
with respect to the point (0.0, YAXIS, ZAXIZ}. The I and J integers are 
coordinates of the characteristic network, and are described in Volume I. 

Y and Z are the rectangular coordinates of the line intersections with 
the solution plane iocated at the X value specified at the top of the page. 
M is the Mach number and Q is the veiocity magnitude. P, RHG and T are the 
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pressure, uensity and temperature, respectively, of the fluid. U, Y and W 
are the rectarsular components of tne velocity in the X, Y and Z directions, 
respectively. :T and H are the stagnation pressure and enthalpy, respectively. 
On solution surfaces, the mass flow rate is not written out. Instead, the 
ratio of the initial-vaiue surface mass flow rate to the locally evaluated 
mass flow rate is given. All thrusts and moments have been multiplied by 
this ratio in an attempt to c_.cel out errors due to integration aver the 
entire surface. These errors ere some indication of the accuracy of the 
overall] schema; however, the accuracies of the individuz! properties at eac, 
solution point are not dependent on these overall vzlues, since these values 
are not used in the second-order integration scheme. The last line of data 
taentifies tr point in the flow which controls the step size so as te 
Sacisfy the Courant-Fredcichs-Lewy stabi’>ity criterion. The safety factor 

is discussed in Volume I, and DELTA X is the computed step size to the next 
solution piane. 


Sample cas® 1 required 91 seconds of central processor time and 122 
seconds of peripheral processor time on the CDC €500, and 190 secc ds of 
central memory time on the IBM 7094. 
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SAMPLE CASE NO. 1 


SCNTRLL IVSTYPx2, 
NPT, 

XMAX=10.4U $ 

SWALSSL THETAT# 3600, 
XE=1U 00, 

RE=4.0, 

THETAE=13,.U ¢ 

SAROSBL GAMMA=1leds 
RGAS=53 43 $ 

S$IVSL NPOS=45 
MCIVS=1e1Cs 
PTCIVS=1U0UcUy 


HCIVS=1255.uU, 
ALPSRC=lu.U §¢ 


Figure 3. Data Deck } 
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2. SAMPLE CASE 2 


The second sample case is identical to sample case 1 in every respect 
except the specification of the thermedynamic properties of the gas. Thus, 
NAMELISTS CNTRLL, WALSBL. and IYSL are identical to those developed in 
sample case 1, and are not discussed further here. For sample case 2, the 
flow is assumed to be isoenergetic and homentropic, with the gas properties 
specificd by tabular data. It should be kept in mind that the tabular 
property option can only be employed for isoenergetic, homentropic flows. 
This option is employed by specifying GAMHA as one or less. Thus, the 
default value of 0.0 will automatically specify the tabular data option. 
For the present case, a table of 30 values of M, p, ay P and T wat generated 
for a gas having y = 1.20 and R = 53.3 (ft-1bf)/(]bm--R). In other words, 
the thermodynamic data used in sample case ] by specifying y and R are also 
employed in sample case 2 in tabular form. Thus, the results of these two 
sample cases should be identical except for small differences due to using 
interpo,ated values of the thermodynamic properties. The tabular values of 
MTAB, PTAB, ATAB, RETAB and TTAB are presented in Figure 5. Those values 
complete the specification of NAMELIST AR@SBL. 


Figure 5 is a complete listing of the data deck for sampie case 2. 
Figure 6 presents selected portions of the output from sample case 2. By 
comparing with the results of sample case 1, it can be seen tliat essentially 
identical results are obtained. Sample case 2 required 82 seconds of 
central processor time and 122 seconds ef periphera? processor time on the 


COC 6500, and 173 seconds of central memory time on the I8M 7094. 


at 


i 


<4 


! 


SAMPLE CASE HOs 2 


SCHTREL IVSTYPs2;, 

APets 

XMAX=70.6 s 

SWALSSL THE TAT #3600% 

XEw1040+ 

REs4405 

THETAES13,0 § 

SAROSBL HYAB*LeOclolsleZeleBebeGstedelebsleTareSeleFs2eOe2eZsZeheZebs 


2B FG F028 50h 6b 308 Oe 2 heh beh heb e552 ese Se Ses bels 

PIAB=5 2803p GbB eh S12 ehs EOFs Sis Z FIZ eae 285 ge Fs ZO Feel PHeOelLOGe2 sl 2728 s9350Ss 
650655001 936g Bg 27-22 9 F022 225012 9b 56 0G 628 5586 2 5 O62 5 359172 35082 020 59H 
16890 925503510075 e0e77FESO.57250% 

ATAGS3166012 71100 1230540152996 5522937 6 2878 222828 682278942 eZTOO ede 254i 4 Bt 
25835 a 2M e 7s Z3BS2eAeZZEDe Le ZLE Zee ZOF 1 Gel IG bc Sel IG e be LEZEsG ei TST Ss LSGia ds 
L625 eo Fe LSM Fe LSLS. 30 LSh Feb e 1615402 136 F a2 e189 he L2Gh eT llL9Zehs 

ROT AB=0 2 3425 200 21855 Ge 2870 Ge 2609 06 2356 Oo ZL 3b Oe lLF2Z Oe lL FZ 7 H00 1 5498s 
G013886 50.2263 9020996599. 97953 20406559 Oe O52 15s OeOS 11920. 03355 000270712 OeOZ2151 
GO e61819 40 ,01495 6059129929. C1031 50.0685629 C0 O07 258 10 2006125 106005198 sO. 004094, 
€.99325426,002469, 

TT ABS 4) 66475402528 +2862.092 755.95 356000 3668055336625 +3168 66950635099 290305% 
277768 6 256Ge T2387 Fee TE Ft LIST Oe TEE. se LSSB gos L5OFe TeL3SGZ Oe Z66eOr1Li9Os5s 
11045251026 035955.6 28916 eO33639 FBG 03 2 709027660 9559253 $ 


SIVSL HPOSt4s 
MCIVS 41.105 


PTICIVSs1000.0+ 
HCIVS=125520% 
ALPSRTa10,0 § 


Gad 
oo 


are vn tunes 


vent thks 


an fess 


re 


nding Z@ asejy ait 6 "9 ounbiy 


O°L 461 To-3€tte*9 06° 2912 OvR' SE oo08’2 
O°S2E2 10-309f9°9D or 0922 OG1° OS o0se2z 
vrEZES 1O-3€S62°9 oo z9€e Cor nD Cor? 
£70962 10-39%65°9 D2 0L92 005° €6 o02*2 
BeLis2 00 3€%21°9 On" E962 Hoes o00°2 
9°€042 00 26RE1°D Ob 1492 O02" ort 006°1 
6*EENE GO 30S$$1°D 00* 0022 000° 4/1 oog*l 
O°BOLE OO 3422179 u2*6S22 009*202 = 00k I 
o°9OFE 00 32241°9 o8*eze2 OOE*SEZ G09°1 
EBo9E 00 349€te"o Oo 8182 OOF ez2 = 005" 
O°U9SE 00 3¥9' 2°) 08° 262 O02" YTE 00%~1 
. 6°SELE 00 36097°9 05° 9662 006" 29€ ovr? 
o°zeae 00 30282°0 Ol ssoe oce 2Ly = OLZtt 
8°S204 00 391 °9 OT Otte 005°89% OOF 
L°99T4 00 35240 °9 OT YOTE o5€°e25 = 90071 
(3 930) iteel JNO) (235/44) (2eanl sia) 
L OWW v da a 


“WIGAN FIVW 4D SNOTIINAS YVINGYL SV INDNE 3uv SITLvIcOUd SV9 INL “CO UWNSSY ST MOT DIADMINIMD ¥ 


TWANIH DIWONADUMS J 4k 


@ SON 3699 J3dwVS 


gets BF 


“SATSVINDOR GNY WEVT VWLLINE WE dIAS 99 ONY PNOLLSSOGKOD Ty DlwaKy AALS LITNO wo MIZONs *S 
PSEAVAS SOV ATLIVULS %% SAOTIIS "ES AGITSTANE °2 *ANONTLNID *L “SNDTLIANSSY De MOTION U2 NU ISTE ST VIGIW DINYNAGS 4 Jhey 


SHOLIdHNSSV UI wed | 


TAISOEW ANELIIVENS FHL JO SNGGh AG OINT4H3L77 Jey SVD 4h 40 STLLYAGOMG BlAYNAUOWY IHL JML ONY AMLIWAAS 40 S INV Id 

JAVH AvH FTZ2UN Fab SENS We IRDINIBANS BHL 40 SMTIW AG GIsdTIAIS ST AVLIWSIO BWZON BHL “SRE SVANNGG FI720N JL SNTULOY | 
MIIMS JO0d5NS “MIWA IWTLINL JWT T=F3vdS Vow 2 BBDdEIIdS 98 LSOM SIIGVIBVA HOT! BM SADVaNDIY ¥IFNO-GNOIIS OMTAYH 
SIVASHMIE DOU Hy SO TOMA IW TV IEMIWIN OTS QIAIOS FxXV MITE DINOSUIDNS IWNOISNIWIG 4341 Vo UGd NOs. OM 40 SNOLIVND: dha | 


TNGA THe 2 OhY KUSdAONE J°A00 °H SHOSSIIOUd JUIM ALISUIAIN 3NGURG YOs SHITVIT. SIAN BWdl tNled ONV OFHO “ds 
NOSUILE Ve HOT BM AMCATHOITT NOLS INGE Nd OHIV GML AB AI¥ISNOdS Svs LOWOANID GL °89IT-3-0 9-5 198 Ed 33 Onn JIVEENOD IW 4G 
SAMIW TRIN IM PHP s2 LYwd Vo CY WOSNYY *H SA AD BIINID NUTS INdI9d Lar ALESWIAIND 3NDBId Jtt L¥ AIMOGOd SVM WYBIOWG SIA 


kovultay 


MOVS VWZZON JINISHIDNS JD SISAIVNY IVNOISNIWIO- 39841 | 


ety “Seung dareescnseta pea are asoertemnerseser rmsesenssseeese anatase cote feet tacectefty-weenePnaanaestlterartienemattcse!lpeasneeesorbefh erpesessvermeaurucastes epeapenenestteS QU erfleteenysayvttuasesmanyyperaeacehayliclfey alltspontermnmtHntBese Py 


HMM UTTER TAMER TIGER] EMMI CIRM MT TMC CR oC 


= 


PF ee te 


Ee eee, ee ate 


TT 


| 


an 


ee ey 


L0TL92£°90 


009000° I~ 


w 22h 20T492°0- 


= 12N 


me) 


™ ZAN 


# TAN 


(Panulzuoj) *g aunbty 


“0 


“oO 


~ 2XN 


= XW 


“30 S3NWId ORL 2SUId JHL OL SIVWUGN ¥31NO 3HL 40 SALW3INOdHOD AWE 


(w.) “0 


“AMEOd ra 


€°26¢ 
6°949 
2°60L 
£°0BL 
€°€es 
9° 168 
9°S56 
€°9201 
2°vOtr 
S*O6Tt 
O°9e2t 
O°’6ET 
£°60S1 
+°Oo9T 
L°S8LT 
(ye 930) 
t 


eRe AARNE SRN TRAN 


«2 (Nd) 


HONOUHL ONISS¥d AULSNWAS 4O S3NtWd + 


20~36092 *0 
2O-3S6526°9 
€0-34694"9 
20~38615°9 
Z20-38219°O 
Z0-35621°9 
20~36298°9 
10-3TEOT*D 
1O-36€Z2T°O 
TO0-3S56%1°O 
ToO-32€18T°9 
T0-30T22°9 
10-3L042°9 
10~JTEEE*S 
TO-361TE¥*9 
(€eels/wgt) 
SHY 


+9 - 


Ov Z261T 
O8°992T 
Or°s0Et 
92°69ET 
OO*STSt 
O9" E941 
O€°STST 
OE°OLST 
06°R29T 
OE TAROT 
OB isd? 
o8*ezeT 
09° r06t 
OF° SET 
Or" t202 
(338/13) 
v 


A 


(NT? 


zero 
OLL°O 
SIUctl 
19s°t 
066°T 
6E°? 
250°€ 
L16° 
z90°¢ 
99S°9 
ez9o°9 
OBE It 
O2i°S!1 
O22°02 
O22" 42 
(ZeeNI/ 391) 


¢ 


“0 n XxX 


SVM MOV 34a 


AUL30039 KOI 


HAAR 


ome) 
sd 


MMe Mae TT aM eT ee 


ma 


(panutyuo)) ‘9 aunbi4 


(WOI/NAGIO*SSZT =H (2e0NI/4979390°0001 * 4d oooT’t «WwW 
(NI) a’) w FONT) “Oo = A NED 9ELTTO «x 


ANIOd JINDUZIIU 
{w1) oa) ar (NE) “0 = A ONT) 8€89°S~ * x (9390) 000-01 » JTONY 398005 


aNtOd J wNOS 
“BIVSUNS BNIVA IWILINE JH2 4O ANIDd WIXY FHL 2V SSTLY3G0Ud BHI JO NCUVIVOISE 3305 AO O3NSITONES3 


JMV FINVOS FHL YO SITLWIdDOYd HL TWA 394720N 3Ht OL ANZONVA ST BOTS WILIND INL LYM HONG SIXY 31270" JHL NO 


GILY3OT ST ANIOd JIWNOS 3H ONY DILIIISGS ST AITONV BdNDS aHE “SANTA TWILINE JHL MSIVEVLS3 OL O3SNM SI MOTE 2 wNOS 


JIVAUNS VIVO WILINT 40 3aAa 


em 


“t | 


\ 

\ 
ei 
a (930) OODD°ET = 3vL3HE (930) OOD0*9C «=» AVIaNI 


\ 
0000°% = 38 (NI) Q000°OT «= 3x (NET) 9099°% = 28 (NE) GOdOTT = ay 
, SUBIINVUVS HNOLNO? | 


(Ny) “0 = 32 {ND} °0 a JA (NI) “oc =~ 4x 
SILVHEOUCOD six¥ ONY LYOUHL 


SUBIZMVBYd ONINOTIIA FHL ONTAVH 34ZZIN O38T0INOD VIOUWUWd-JIIMIHID DEMLANWASIXY 


ABSINOGD BIW 


a 


ll 


nN 


Ist 


nea 


Pune aye 


O°Ss2i 
0°6S2t 
O°S62T 
O°SS21 
O°SS21 
O°S6S21 
O°SSZ1 
O°GS21 
O°SGLT 
O°S¢S2T 
O°Sse) 
O°SS2l 
O°G6S21 
O°6S21 
O°SS21 
O°ssel 
O°SS21 
O°SGeT 
O°Sse7t 
O°Ssel 
O°SSel 
O°SSel 
O°Ss2zt 
O°SSzl 
O°SS2t 
O°SGeT 
O°SSel 
O°SS2t 
(mak? 
MN 


9°9091 
9°3031 
9°9001 
2°39031 
0°39051 
O° 905T 
DIO 
O°9031 
O°9031 
O°30or 
DIDI 
9" o03t 
O°30or 
O°9031 
eka leb hi 
9° JOT 
O° 01 
O° 9098 
VOI 
bee lem | 
O*O00F 
A*J0F1 
IV DIIT 
Y* IDI 
o*90rt 
o°oort 
hae PP) | 
O° 01 


la 


ress 


C2NTF4IGIIDISTL AD 


4 


$0490°O 


i) 
ae 8 2 
T6L 
o*H2z 
2°k02 
$°*8S1 
9° 9ES 
6° 72E 
€°t6z 
6° Le? 
2° 99% 
9° Le» 
crete 
O°tle 
S°STE 
O° 1SS 
2°49S 
O°4%es 
6°06% 
8°59% 
9° OBE 
6°L99 
"29 
B°S29 
9°R6S 
T°19S 
O°ets 
T° 8S 


(938/199 


Aa 


Cab deagd 9°96 


(Panutzuo0g) -g aunbLy 

= X vit3d o0nes"0 > WORDWS ALZIVS 9 = f ONY 9 =! 
T°reve e°Sszoy OO 3ESTETO Ov ROH T°T9E ele) Gan | *0 
L°SEVE 2°9t oy UO 3ISZTETO 99° 49% S°LEVE Lote aé) 
L°SESE 2°9toy OO 36Z2TE°O 96% 494 S°2ESE zoret 4lE1°O 
aa 7 a4 + °O66€ OO 3920€°O bE "454 €° 1a y2trr “oO 
| oh 2 8 3 ¥* O86E OO 39L0€*O 6° 9S% E° VBE ¥2T*y 2z2o1°0 
ToL ve +*066€ OO 39LOE°O SESS €°VO89e a oe | 829 2°0 
O° S26 6* 946E OO 36900€°O £€9°O%+% U*tese ariel oat) 
O°S2SEt 6° 9G6E 00 3690¢°0 £9°O%% T°lese Bet*t 224d 
0°626€ 6° Sot 00 3600€°O E9° O44 U* Lose 2 om | £922°0 
0°S2St 6° 9$6C6 00 1600€°O €9°0%% rorere BeT°Y SBat es 
6° BLSE O*9L6E 00 39462°0 19°S2% 9 9I99€E Reet “0 
O°BLSE O°9T6E 00 39€62°0 19°S2e -*9D9E patel 004 T°O 
O°BLSE O° 9let OO 39€62°O 3 19°S2% 9° 999€ 7 a oe | Lyie"d 
O*RLGE O°9TbE OO 39€62°9 L9°S2%¥ 9°999E 9aret greet) 
6*RLSE O°9T6E 00 39€62°0 Lo%c7e 9°999¢ etry 9106") 
2° 629E +* GLE OO 3€982°O 66°O19 V1L9€ eoe"t “o 
2° 629€ + OLRE 00 2E9HZ*O 66° OT T"Vegse €O2*1 L9€0'°9 
9° 62S w°8LcE OO 3€982°O 66°O1+ T°ULGE €or°T T92¢°9 
9° 629E > BL8E 00 3f98¢2°0 66°O014% U*TL9€ €or°t BIGE"D 
9° b29€ +*BL8E OO JE9EZ*O 66°01 V*ULoe eorrt 2ETS°0 
9° 629E »*BLRE OO 3€982°O 66°014 V*TL9€ €oe°t OBTS*O 
yl 9E t* vee 00 3462¢°0O 29°16E V°teze eee°r ¢ 
9° VLE €* ee OO 319622°O | 24°L5€ T*teLe eee°T eeE1°o 
oe YLVE €* you OO 3S6LZ2°O) 24° LOE T*tede Be2°T 8E92°0 
yh FE €°o98t OO 3669270 Z4°L6t Terese Be2°U SBRETO 
e*4L IE £° YORE 00 34622°0O «25° L bE T° Bee" 9406°9 
Lhe? el 8 €°4sOt OO 36622°0O 24° L6E i*tece geez" t O8tera 
HL 9E £° 4oeEe OO 3966242°O §=24°1 bE Teles peert Herero 
(DIS/24) {uw 930) (€13/7481) (2n0/4397) (939S/14) w5) 

nN I JHe d 19) Ww ? 

. AWOWZ (ddt—25) EVTZZT- «= LWOWA CJQT195 OC"O- 
{4BV) ECF°ST- = 150817 {381) O9°%t- 2 ISNUHIA 
(DISSHOTVD Sryvoe? - HOTS SS VN (%eeNl) 9E0%°0 
(nT) 9ELTTO = x 


Sy vy 
Ow mi 
OW Ma) 
OM wt 
Om AE 


ANIOd 9 


W9e29 lv 
#€t29 Lv 
4Et29 LY 
LEfLO IV 
cer2e lv 


NEAS wT 


SUDAIMYYYd KOLAV TADS dc 2k Oe 


om) 
ydBT°O 
SZLT°O 
9140°0 
CeVE’O 
B29" 
696° 
£0€6°O 
OSL" O 
S@aE°O 
Gatera 
twoL"o 
7499°O 
6966°0 
FL06°O 
0%10°0O 
ct9b"O 
eer’ o 
eager a 
Teae*o 
OB8T9*C 
ZSlOrT 
$900" T 
9N86°O 
6LE6°0 
2610°O 
49080 
eelera 

CNT} 
A 


éo4 
i 
9 § 
as 
9 G 
% G 
t 4 
9 4 
4 4 
» 
ht ft 
9 ¢ 
% 
& 
4 € 
tL 2 
9 2 
g$ 2 
b a 
{ 2 
ar 4 
| 
9 1 
GS t 
¥ rt 
€ ft 
z ol 
rot 
cof 


SYILINVYYd MOTE BORBIINI ONY AYVONNOB 


(307) 61°66%~ " 


AWOWX 


ISNA 


« V2IBV HOIIDIS $SOUd 


Suslabyuvd LSNHHL 


KO TIBONY 
*IWVONN 
HII von 
AD VAvOMN 


WIV BEAN 


¥iAVO QVEAINI 


MN 
ws 


Ma omg agree gua UMAR 


Per naa nl aa seca eae nah See aired ait 


(panutzuo)) “9 aunbLy 
STIS vyeErat wis NODINISKS 

OEZO0°2 =» xX VL430 80SL0°T * WOLSVE AbQaS 2 = fF ONY T = 3 INTOd ONISHI 
SUDAINVYYS NOLAV INDY d31S*% 
O°SS2T 2° 071 2° o°0 wrote treed 29-30L24°Q WS" T ott? E61°S 0000°0 1000°0 4a 
O°SS2t OOF lO Yrvol 4°0902 O°L98 cO-3(8E9°0 00°? ¥°E90L 1S6°%% LOOC*O~ 019670 i. 9 
O°SS2T V9IOIT 7°6El e°oet T°V902 y*99R 20~-302E9°O 00°2 BEDI £S6°% 9089°9 Goreo 9 9 
o°ssel e031 tro- r°eLe 0°656? €°L56 70-34998°O 20°E 6°8969 S6S°% TOOO°O~ LL5i*l 2.6 
O°ssel YIOIT 2°99 2° OCE £°1969 2°96 20-3699R°O YOTE t°tLo9 £°O%y 9699°0 »S929°7 9 S$ 
O°ocer OVO Bree 9*t92 8*2969 8°256 2O-3I59SR°O 2O°E B°2L69 ao9*4 W924 a Tae | 5 $ 
O°SSel VO t°0~ 7°999 S*oERd s*219t 1O-36001°O O8*t 6°9T69 429% 1O00°O- 98HET? to 
0°S6S21 NII eost 9° 149 2° 2ang Br rrar To-32001°O Latte 276169 [hoes $L419°0 werer]’ 9 4 
O°S62T r"S2e O°295 €*6BRd9 f° otor WO-F100T*O 92° 8° 6169 Cees LLABITT BoLNe G 4 
O°OG21 dV OL% 6°699 R* 2889 2°94 rot TO-31TCOT°O FA°E 8°66" ctres 9669°T S669") » 9% 
O°sszl wd b"o00! e°4eRG €°O%01 WO$-32901°O T°? 2°2889 k9ESY 2000°0 1976"? a ¢ 
O°SSel >" 96l S*4l6 274209 6° LEOl To-algart"a 40° 2°6589 o9t*> £429°O f1l6%e 9 ¢ 
V°GSet 9° 091 O° eBt 9° BOG 0°6289 +°LEOl 1O-36S0T°O 20° £°65$89 aac’ a920ey O29L° 2 6 
N°SSel NONI b°26G Pera O*H2r9 G°eCor 10-3290K°O 80°% 8° 8689 votes Leo rt GLO? » €£ 
O°Sset A IOV FEO +°EOL S°*Sean9g B°ocot 1O-3S901°O O° 9° L689 49E*Y CSO? 9S01°2? £ € 
O°S621 aber leer 2°90 S°B621 g°29r9 €°esSol 1O-200Tt*Q 42°49 3 °S8a9 BeETY $000°O OTZS°E 4 2 
O°SG2eT SGOT z"L0e or2r2t SEW 2°260t 1O-36691°O 82°% 9°9889 ater &2S5°O L¥dyrt 9 @ 
2°SS21 her ere | a° 40% or yeezt 9499 9° 2601 1TO-36601°O 82°» 9° 9889 OfErs 29807) COECE $ 2 
0°4621 Ord P°ZRs O°S9TT G° 49D? z°egar 1Q-300TT"O 62°4 6°S889 620° 906S°% eaeyre » @ 
M°USel Y* WIT STAGE 2°Uroe £°e9L9 1°SS01 T0-3901T°O 2t%% £°4839 74 ee 6990°2 2078"? € 2 
O°6SEE me OD o°S16 9°916 ¥°0979 0°9S01 TO-B29I"'O FEC S°eRar teers BR O°? Teer 2 a 4 
O°SS¢1 wood 9°0 arerst 6°00L9 €*e901 TO-,CETTG €%°9 27ers C0f*% Tooc*o 0000°% ‘an! 
9°6521 NIT Lrot)e T°2ESt e°00L9 €*evat LO-31Z701°O 4°% T2289 cOEcY® %0€S°O 2L796°E 9 1 
O°SG2t 979091 S°et> 9° 6ROT £°O0019 S°e901 To-342T1°O ere O°4t89 tot’ 96490°1 BOSa*t s 1 
2°SS21 eharre h | 2° 509 rrreol 10029 z°90t TO-36210°O Sota €°9LAe O0£*> lerset 0069" € » 
O°SS22 Or sort erhde Z°LEEl T° 60% 2°S901 LO“3ZETT"O 99° 96289 862° 4 e900°2 S099°¢ « 
o°S6s2zt O°3031 9°0%6 S72e2zt 2°R699 $*990T TO-3SETT*Q B89°% Y*4Le9d ¥62°% OSE S*2 Lelie ra | 
O°SSet “ve yt w°GSO1 “2601 6°L699 8° 9901 TO-J9ETIPO 89° r*7.a9 %6o°% sBz2ere 4B2e"2 rt 

CHOI LAD CARTS I TICVISSL Sd CBVBSFASS = 6995743) tH 930) €149/4d91) C2NT/ 39? CDISSII) (wr) CNT) 
4 Lo ™“ A a 4 OMe a 0 Ww z A c t 
SUILIWVUVd MOTE BOLBIANT OAV AdvONNDD 
(407-19) 02°998 . Cisr r4 (483-15) OF ESE * LWOWA CAV I-24) 9 9°O~ - Abie x 
{ju i) terre = LSMvHa7 C307) 8€°92- =e LSABHEA (38T) €4°bH9- = bSMw Ex 
4£9z200°T = OULVY IL¥y MOTs SS¥H (2eeN]) 69797°9 sv3uv NOTII3S S$952 


CALVE 8O14d SSYM WIT OL WILLEN] 20 OELVY 3NL AG OSE TALLINN NBID BAWH SININOGWOD LSNUNL) SuILImVUNd LSMeHd 


O2 INVId (43) OO00*D! = x 


~ 2vIINS KIDAN MWS 


oy 
“3 


3. SAMPLE CASE 3 


The third sample case is identical to the first in every respect 
except no nlanes of symmetry are assumed, and the Mach number at the center 
of the source flow initial-value surface is increased to 1.5 to simulate 
a Supersonic start condition such as could accur in a scramjet. In addition, 
the centerline of the nozzle is offset from the coordinate axes to illustrate 
that option. Thus, NAMELISTS CNTRLL and AR@SBL are the same as in sample 
case 1. The values of YAXIS = 1.0 and ZAXIS = 1.0 have been added to 
NAMELIST WALSBL. In NAMELIST IVSL, NPGS is allowed to have its cefault value 
of 0 for no planes of symmetry, MCIVS has been changed to 1.50, and YCIVS 
and ZCIVS have been specified as 1.0. These changes complete the speci fi- 
cation of data deck 3. 


Figure 7 is a listing of data deck 3. Figure 8 presents selected 
portions of the output from sample case 3. This sample case required 494 
seconds of central processor time and 129 seconds of peripheral processor 
time on the CDC 6500, and 886 seconds of central memory time on the IBM 7094. 
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SAMPLE CASE NO. 3 


SCNTRLL IVSTYPs2, 
NP=7, 

XMAX210,0 $ 

SWALSBL YAaXTS=1.00Z7AXIS21.05 
THETAT=364C% 

XE=10.0; 

RE=4.0, 

THETAE=13,0 § 

SAROSBL GAMMA=1 64,4 
RGAS=53.3 $ 

fIVSe YCIVS=1e0> 
ZCIVS=1405 

‘CIVS21250s 
PTCIVS=100000, 
HCTVS=1255,.0, 
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Figure 7. Data Deck 3 
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4, SAMPLE CASE 4 


The fourth sample case is again identical tc sample case 1 except for 
the initial-value surface, which is specified by tabular input. This option 
can only be employed for axisymmetric initial-value surfaces. In addition, 
a variation in the stagnation pressure and enthalpy across the initiai-value 
line is specified, resulting in a rotational flow such as might occur in air 
breathing propulsion systems. The rotational flow option can only be employed 
when the thermally and calorically perfect gas option is specified. This 
limitation is a consequence of allowing for snly a one-dimensional table for 
thermodynamic properties in the tabular property option in AR@SBL. This 
restriction can be easily removed by fumishing a three-dimensicnal table 
with static pressure, stagnation pressure, and stagnation enthalpy : being 
the three independent variables. Thus, NAMELIST CNTRLL is identical to case 
1 except for IVSTYP which is set equal to 3. NAMELISTS WALSBL and AR@SBL 
are the same as in sample case 1. 


NAMELIST IVSL was constructed as foliows. For four planes of symmetry, 
NPGS = 4, The initial-value line data were obtained from a source fiow having 
the same properties as in sample case 1. Thus, XIVS was set at 9.174 inches, 
and YCIVS and ZCIVS were allowed to assume their default values of 0.0. The 
parameter MCIVS, PTCIVS, HCIVS, THECIV, PHICIV, ALPSRC and BETSRC are not 
specified for the tabular initial-value surface option. Twelve values of 
y, denoted by RIVS, were obtained at intervals of 0.1 inch across the initial- 
value surface of case 1. The Mach number MIVS and pitch angle THETIV were 
obtained by interpolation at the selected values of y. In order to ilJustrate 
the option of having variable stagnation pressure and enthalpy, PTIVS and 
HIVS were not fixed at the constant values of case 1, but were varied as 
shown in Figure 9. PTIVS decreased continually from 1000.0 psia at the 
centerline to 760.0 psia at the wall, while HIVS increased concinually from 
1255.0 Btu/Ibm at the centerline to 1350.0 Btu/ibm at the wall. These 
variations are representative of the profiles which might occur in scramjet 
engines. This completes the specification of NAMELIST IVSL. 


Figure 9 is a listing of data deck 4. Figure 10 presents selected 
portions of the computer output generated by sample case 4. This case 
required 101 seconds of central processor time and 135 seconds of peripheral 
processor time on the CDC 6500, and210 seconds of central memory tiie on 
the IBM 7094. 


SAMPLE CASE NOs & 


SCATRLL IVSTYPs3, 
NPeTs 

XMAX=10,0 3 

SWALSBL THETAT= 36005 
XEelleGs 

RE#4.05 

THETAE®13.0 $ 

SAROSBL GABHA=1eds 
RGAS#5343 $ 

SIVSL HPOSs&,s 
XIVS*0.174% 


RIVS=040 60011042 1003900h10550006104710468 100991009 16015309 
MIVS=163311032+16290162651623¢10209]e1751014910119100891 06510055 

PTIVS* 100 00 1106006 199000497040 4940 0099100088000 1850 +01820608790009 16000» 

759 20% 

HEVS=1255 0091260604 1270004128000 ¥1290404!300404131040+132U00+19300913400 013500. 
135200+ 

THE TI V®0 009 05910352039340 95001600 970088005Fe0190901000 $ 


Figure 9. Data Deck 4 
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5. SAMPLE CASE 5 


This sample case illustrates the nozzle contour option which specifies 
a super-elliptical nozzle with 2 planes of symmetry (i.e., NSYMMY = 2 and 
NP@S = 2). A uniform, parallel flow initial-value Jine (IVSTYP = 1) with 
seven points will be employed (NP = 7). The numerical solution will he 
carried out to a length of 3.75, which is the value specified for XMAX. 
These values complete the specification of NAMELIST CNTRLL. This nozzle is 
geometrically simijar to the nozzle presented in Figures 19 and 20 in Volume I. 
The only difference is a linear scale factor of 0.75 which must be applied 
*o all dimensions in Figures 19 and 20 to obtain the present sample case. 
Thus, the isometric plot, the cross-section plots, and the polar pressure 
profiles presented there can be directly related to the present case. 


The super-e.iiptical contour parameters are specified in NAMELIST WALSBL. 
Thus, NSYMMY = 2, and YAXIS and ZAXIS are left at their default values. As 
usual, XT is left at its default value of zero. The next six parameters 
specify the contour intersections with the two planes of symmetry; thus, two 
values of each parameter must be specified. The initial contour is circular 
with RT = 0.75, 0.75 and RC = 0.75, 0.75, The point of tangency between the 
circular arc throat and the parabolic contour intersections with the two 
planes of symmetry are chosen as THETAT = 16.5, 7.0. The exit points in 
both planes are set at XE = 3.75, 3.75, and RE = 1.59, 1.07. The slopes at 
the exit points on the coordinate plane intersections are THETAE = 8.5, 3.0. 


The remaining 14 parameters are used to specify the super-elliptical 
exponents in the flow space between the two planes of symmetry. Thus, one 
value for each parameter is required. The X) coordinates of the three points 
selected to specify the X; variation of EXPY are XY] = -1.0, XY2 = 0.20, and 
XYS = 3.75. Likewise, XZ] = -1.0, XZ2 = 0.20, and XZ3 = 3.75 for the 
specification of EXPZ. Note that XY] = XZ1 = -1.0 is completely upstream 
of the nozzle throat radius of curvature, which is 0.75 inches. This is 
immaterial since these values are used only to curve fiz the exponents as 
functions of the X; courdinate, and need not fall on the contour. In order 
to maintain an axisymmetric contour up to X] = 0.20 inches, the exponents up 
to and including that point must be defined as 2.0, and the derivative of 
the exponent at the central point must be 0.0. Thus, EXPY = EXPY2 = EXPZ] = 
EXPZ2 = 2.0, and DEDXY2 = DEDXZ2 = 0.0. The super-elliptical exponents 
downs tream of the throat will be chosen large in order to generate a contour 
approaching a rectangular shape. Thus, EXPY3 = EXPZ3 = 10.0. This completes 
the specification of NAMELIST WALSBL. 


The same gas chemistry as specified in case 1 will be employed. Thus, 
NAMELIST AR@SBL is the same as in data deck 1. 


For a super-elliptical contour with 2 planes of symmetry, NPQS = 2. 
XIVS, YCIVS and 2CIVS will be left at their default values. The remaining 
parameters are fixed at the values used in sample case 1, namely, MCIVS = 1.10, 
PTCIVS = 1000.0, and HCIVS = 1255.0. No pitch or yaw argles are desired, so 
the specification of NAMELIST IVSL is complete. 


Figure 11 is a listing of data deck 5. Figure 12 presents selected 
portions of the computer printout for sample case £. This case required 224 
seconds of central processor time and 213 seconds of peripheral processor time 
on the CDC 6500,and 436seconds of central memory time on the IBM 7094. 
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SAMPLE CASE NOe 5 
SCNTRiL IVSTYP=l> 
NP=7s 
XMAX=3475 $ 
SWALSBL NSYMMY=2,5 
RT=0075500755 
RC=U6T5 eVeT5s 
THETAT=160597eUs 
XE=30e7593075% 
RE=155951.U7> 
THE TAE=825930e0% 
XY1=-1.20> 
XYZ2=Ue20> 
XY¥3=3075> 
EXPY1=22Us5 
EXPY2=2eUs 
EXPY3=100e0s 
DEDKXY2=060» 

Z1l=-1.09 

XZ2=Ue205 
XZ3=3075» 

EXPZ1=240,% 
EXPZ2=2eUs 
EXF2Z3=10¢0s 
DEDXZ2=040 $ 
S$AROSBL GAMMA=1.4> 
RGAS=53 4.3 z 
SIVSL NPOS=2> 

MCIVS=1.10+ 

PTCIVS=1U0UeU, 

HCIVS=12550eu $ 
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Figure 11. Data Deck 5 
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Sample case 6 is designed to illustrate the nozzte contour option of 
a completely general super-elliptical contour. Thus, all four sets of 
parameters specifying the contour intersections with the four coordinate 
pianes must be input, as must all four sets of parameters specifying the 
super-elliptical exponents in each of the four quadrants of the flow space. 
NAMELISTS CNTRLL, AR@SBL and IVSL are specified to be the came as for sample 
case 5 with the exception of XMAX = 10.0 so a longer nozzle can be specified, 
and RP@S which is left at its default value of zero, Thus, these three 
NAMELISTS do not need to be redefined. 


The general super-elliptical contour specification is defined in 
NAMELTST WALSBL. kor such a contour, NSYMMY = 3. YAXIS and ZAXIS are left 
at their defavit values of 9.0. The net seven parameters, each containing 
four values, specify the contour intersections with the (X],X2), (X1.X3), 
(X} 5-Xo) and (X7,-X3) coordinate planes. All four intersections are com- 
posed of circular arcs centered ac X; = 0.0 joined tangentially to general 
parabelas. Thus, the default values of XT are einployed. The local throats 
are al] chosen as one inch, thus RT = 1.6, 1.0, 1.0, 1.6. These are the 
default yalues of RT, so they could be omitted if desired. The radii of 
curvature of all four circul?™ arc segments is chosen as 0.5 inch, so 
RC = 0.5, 0.5, 6.5, 0.5. The angles at the points of tangency between the 
cirvular arcs and the parabolas are speci fied as THETAT = 30.0, 35.0, 30.0, 
40.0. The final points ef all four contour coordinate plane intersections 
are to be specified at Xj = 10.0 inches, so XE = 10.0, 10.0, 10.0, 10.0. 
The racii to the contour intersections at the exit are RE = 4.0, 5.0, 4.0, 
6.0, and the wall slopes at these points are THETAE = 5.9, 7.0, 5.0, 10.U. 


The next 14 parameters, each containing 4 values specify the variation 
of the super-elliptical exponents in the 4 quadrants of the flow space. 
The order of the 4 values of each parameter in relation to the 4 quadrants is 
discussed in Section IV.4. The X] coordinates of the four first points 
used to specify tr. variation of EX®Y are XY] = 6.0, 0.0, 0.0, 0.0. The 
second fwints are X¥2 = 1.0, 1.0, 1.0, 1.0, and the third points are XY3 = 
10.0, 19.0, 10.0, 10.0. The values of EXPY at these points are all four 
EXPY] = 2.0. ail four EXPY2 = 2.0, and EXPY3 = 2.0, 5.0, 5.0, 2.9. The 
derivatives of the exponent at the middle points are set equal to zere in 
order to maintain an axisymmetric initial contour; thus, DEDXY2 = 0.0, 0.0, 
0.0, 0.0. Similar specifications must be given for EXPZ, the exponent of 
the z-axis term in the super-elliptical equation, Eq. (1). Thus, ai} four 
XZi = 0.6, all four XZ2 = 1.0, and all four XZ3 = 10.0. The values of 
EXPZ at these twelve points are ail four EXPZ? = 2.0, all four EXPZ2 = 2.0, 
and EXPZ3 = 5.0, 2.u, 5.0, 2.0. The derivatives at the midpoints, DEDXZ2, 
are all four set equal to zero to maintain the axisymmetric shape up to that 
point. This compietes the specification of NAMELIST WALSBL. 


Figure 13 presents data deck 6. Selected portions cf the computer 
output ave illustrated in Figure 14. Sample case 6 required 662 seconds of 
central processor time and 156 seconds of peripheral processor time on the 
CHC 6500 ,and119Beconds of central memory time on the IBM 7094. 


SAMPLE CASE NOe 6 


SCNTRLEL IVSTYP#l» 
NP=7o9 

XMAX=10 06 $ 

S$WALSBL NSYMMY =3 5 


RT=LeUsleUsleUsleoO» 

RCD eS 005 oVe5s0e05s 
THETAT=3U 009350093000 s40008 
KEZLVe Ds l0svvlUe0r1 000s 
RE=heVs5e0x4e0s6e008 

THETAE = Bes TeOsdeGslleds 
XY LEU eI bel sUels0oVs 
XYZ2LeOoleUsleVsleds 
KYZSLUsOeLUeVslOeUslVels 
EXPY1L=20Vo2eUsZe0s2eUr 
EXPYZE2ZaVsZeUr2e0s2eUe 
EXOYS=20Ur5eUs5e0rZes 
DEDKY 220 00ev a 200Us000r 
XZ1L=VeCsboUsUeUs0eUs 
XZZ=leOrieVeleOeleds 
K22=1Ue09lUeIrlOeVrlUeU» 
EXPZ1=2eVsZe0v2e0s2eUs 
EXPZZ2=20VrZeUs2e0v2ers 
EXPZ3=5 eV y2e0s5e0r2eUs 
DEDXZ2=0 009 ol 90009000 € 


SAROSBL GAMMA=1 «4» 
RGAS=5303 S 
SIVSL MCIVS=lelVs 


PTCIVS=1U0UeVs 
HCiVS=12950eu > 


Figure 13, Data Deck 6 
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7. SAMPLE CASE 7 


Sample cases 7 and 8 are designed to illustrate the tape data storage 
and retrieval operations. The two nozzles are identical in all respects, 
with case 7 running one inch down the nozzle and writing the solution on 
tape, and case 8 restarting from the tape ta continue the solution to the 
end of the nozzle. Thus, all data are identical except the parameters 
NSTART and XMAX. NSTART is set equal to 2 in case 7 to generate a data 
tape, and equal to 5 in case 8 in order to restart from plane 5 data stored 
on tape by case 7, XMAX is set equal to 1.0 in case 7 to generate the 
solution to that point in the nozzle, and then set equal to 10.0 in case 8 
to complete the solution. 


The problem being considered is a skewed, uniform inlet flow into 
an axisymmetric, 10° conical nozzle 10 inches long having a throat radius 
of 1.0 inch, a throat radius of curvature of 0.5 inch, and the throat 
located at X = 0.0. Thus, in NAMELIST CNTRLL, IVSTYP = 1, NP = 7, XMAX = 
1.0, and NSTART = 0. PRINT], PRINT2 and ERRGR are allowed to assume their 
default values. 


In NAMELIST WALSBL, the default values of NSYMMY, YAXIS, ZAXIS, XT, 
and RT are employed. RC is set equal to 0.5. Since the contour is a 10° 
cone, THETAT = THETAE = 10.0. In order to completely specify the entire 
nozzle, XE = 10.0 even though the solution will proceed only to XMAX = 1.0. 
For a conical nozzle, RE does not need to be specified. The remaining 
parameters are concerned with super-elliptical contours and do not need 
to be specified here. 


The gas thermodynamic properties are chosen to be those of a thermally 
and calorically perfect gas typical of solid propellant rocket motor exhaust 
products. Thus, GAMMA = 1.2 and RGAS = 60.0. No other parameters need 
to be specified for this option. 


In a uniform flow skewed with respect to the nozzle contour, only one 
plane of symmetry will exist. The skewed flow is obtained in this example 
by specifying a uniform initial-value surface with a Mach number of 1.10 
which has a pitch angle of -1.0° superimposed on the entire surface. Such 
a flow will be symmetrical about the y-axis. If a uniform yaw angle is 
Superimposed on the flow, the z-axis will be a piane of symmetry. However, 
the program logic for considering planes of symmetry always fixes the 
positive y-axis as one of the planes cof Symmetry. Thus, in order to take 
advantage of the flow symmetry, the skew angle must be selected a: the 
pitch angle. Thus, NPQS = 1, and XIVS, YCIVS and ZCIVS are left at their 
default values. 41590, MCIVS = 1.10, PTCIVS = 1000.0, and HCIVS = 1255.0 


as in sample case i. To specify the skew angle, THECiV = -1.0. The remaining 


parameters are noi required in this problem. Thus, the specification of 
NAMELIST IYSL is complete. 


computer output. The solution required 13 planes to reach 
of one inch. This case required 166 seconds of central 

na 8 seconds of peripheral processor time on the CDC 6500, 
f cen 


£0 


presents the data deck for case 7. Figure 16 presents selected 
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SAMPLE CASE NO. 7 


LSCNTRLL IVSTYP=l, 
NP=7>» 

XMAX=14.0» 

NSTART=0 $ 

SWALSBL RC=005, 
THETAT=1uU.Us 

XE=iUVeO,s 

THETAE=1U,.0 $ 

SAROSBL GAMMA=1e2+ 
RGAS=60et $ 

SIVSL NPOS=1> 


MuLVS=1610, 

PTCIVS=1UUuUeU, 
HCIVS=1255aU,e 
THECIVs=-1,.0 § 


Figure 15. Data Deck 7 
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8. SAMPLE CASE & 


The purpose of this sample case is to demonstrate the tape restart 
capability of the program. A tape was created by sample case 7, with 13 
solution planes. That solution can be continued from any plane inciuding 
or after plane 3. For example, NSTART = 5 in NAMELIST CNTBLL wil? initiate 
the solution for plane 6. The only change required to the data deck of 
case 7 is the change of NSTART to 5 and the increase of XMAX te 10.0. 


Figure 17 illustrates the data deck for case 8. Figure 18 presents 
selected portions of the computer output. As seen by cross-schecking, planes 
5 through 13 are identical to those calculated in case 7, This sample case 
required 418 seconds of central processor time and 194 seconds of peripheral 


processor time on the CDC 6500, and 873seconds of central memory time on the 
IBM 7094. 


= apo 


SAMPLE CASE NOs 8 


SCNTRLL IVSTYP=1l, 
NP=7> 

XMAX=10eU, 

NSTART=5 $ 

SWALSBL RC=0055 
THE TAT=iU,.05 

XE= lueOs 

THETAE=1U.U § 

SAROSBL GAMMA=1e25 
RGAS=60.U $ 

SIVSL NPOS=1l>¢ 


‘ MCIVS=1.10>5 
PTCIVS=1U0U.U9 
HCIVS=1255eu9 
THECIV=-1l.u $ 


Figure 17. Data Deck 8 


103 


tH SSAA NLM Fy COLE PED EPO NEE UIE 1 tee on Conny 6 ad 
‘ 
fl 


i ynd3ng g asej a_dwes ‘gy, aunby 


! O*ss2t S031 o* sts L*len 6°ROTE 6°0r22 OC 3LE9E°O 60°%E S°Oste socr? $ei9g°O eC00"°O- ZZ & 

| : O°'SSZT O*3051 a°28s $°h2- ester 6°L122 OO 3AZEZE°O =99°862 e°sece rool yeecel otoo7o- 1 2 

y 1 O°Ssct 0*°009T 3°98 S°S¥~ 0°9G92 0°02 %2 00 3666%7°O €6°€0S 9° 7992 colt 0000°9 TORT"? 4 9 

O°Soer B°9a5st a0 S°S9- O° #992 O°O2%2 00 3866%°0 f€6*t0s 9392 90t*1 soe lo (92t°o 9 9 

} O°S6Z4 p°d0st ec e°eet- R492 Br2ro: 00 3726%°0 3 70°Sb4% 1 92 Site. CAL E°O 2stt°o 5 9 

‘ 0°6G21 A° IT R°29 G*o2- y*BELe 6°BRt2 O00 3589%°O 62°99% f°otsd *otel 4€2$°0 OLETSO > 9 

! O°SSZzl 9° WIT istat €*2- O°ES62 6° 4tE2 OO 2611%°0 69° 904% $°8S562 faeey $L469°O “s£T°O t 9 

: O°Sect O* 2071 ¥° SES wae errete 2°8922 00 JG19C°G 29° 19E Z°OIZE 00%°) 6998°O ecet'o 2.9 

O°SEGet 9° 3099 GLAS z°Gs6 O°7SEE t°Stz2 OO JEIZE°O £9°9b2 O° FSEE aos") 68EC*T Szeto 1 9 

i O°Ss7r "9031 2°O S*te- 9°9092 ae eo 74 00 3226%°0 64°%64 O°LE92 Siret 00oc*o 219€°O tos 

‘ : G°SSUT "3091 seg &*EE- OrReoe Crest o2 00 3616%°0 S%°%6% eg" RE9z OTT) 1ovtrd BetEr’O 9 4 

O°S52t 2° 9091 2° O°SE= 2°G4E92 6° 2192 00 39¢697°O0 22° ShY $°CE92 siret 6US2°0 $%S2°O 6 6S 

O°Sczl 0°9031 L'ss 1°6=- 2°0%22 ¥°BHES OO J9R94°O 3 €2°S99 C°Vss2e Sorry $699°O £992°0 + S 

O°SSZT O°oOd1 6*OLT B°2E 6°T962 O° er ez 00 309T%°O = €€*409 0°L962 942°3 0289°0 teeta € § 

O°“Set 9° 9601 9°S24 c*oct 9° ORTE 9° S922 CO FE6SE°O Ul oe 9° bU2E sov°l 6989") €297°O toy 

O°Stet S°I0R G*Les $°S8zt 1°2Se€ 9° 2122 00 326TE°O 82% eh? S°9I4E ¥OS°1 D200! 8992°0 | 

O°6o21 4°39037 t°o tye T°94l2 2° Lee 00 36999°0 64°99 < 99k? gore? oo00"o 6L€S°O 4 4 

O°SSet O°3031 erat 6°12 Arar? 9°98E2 00 32999°0 C9°E9Y o°Bel2 o9tt €O9t°o0 Yo1S°O 9° 

O°Ss7zt 9° 9031 L°4e gre 4 S912 €*°18€2 00 16999°O €%°994 O°9412 eoiet W22°0 TS9¢°O ‘$ ¢ 

0°SS21 O°9051 teL9 2°? B°O%2e >" B8EL CO 30895°0 $£°S594 2° uve? sotet *€8C°O Ovle°o + 4 

O°sszt O*I9G71 S°4St 4°99 B°ZG08 O° ete?’ 00 29S19°O 21°909% 9°L962 daeet €16$°0 OlBE"O € 4 

ASSLT O° 0031 A104 oO°odt I°sere 6°tve? 00 IT8SE°O BArUcE 1° oe2E Bort 22H 2°0 0$6f°O 2 9% 

O°SS2Y 9°9001 $°9SS L£°702 S°O9EE T°ovez OJ ISLTE*A T4262 o*21%9€ poset 96$6°O 946E°O 1 » 

O°SS21 Oo°ocot £°0 ors5t O°9262 O° ur Ez OO 3S€T%°O Se" lOy B°LL52 zez"t 000Cc"0 T20L°0 4 4 

O°SSZ1 0*3031 1°Le€ F° Vet Tesee2 2°62EL 00 IR2TH*O =29°004 O°U862 CO2°T 28€E1°O *€69°0 9 € 

O°SS21 O°903T 6°92 tee? 9°9262 €°O2ES YO 3621%°0 22°004% 9° 0BHe euzrt 2£2°0 0299°0 S ft 

O°SS2% H* 098 6°80R O°oll 6°OL62 L°ORte OO J1419°O BISZ04% teqse2 dee°t €56t°9 1265°0 » &€ 

O°SS2t 9°3931 Tver 9°26 9°4962 e°?eee 00 36514%°O B2°tos 1°6962 tazre oc0s"0 L969°O € € 

O*S6S2T 2° D091 z°89¢ B*se?e G°961E e922 00 342S€°O BOF °LEE €°922E 60%°1 907L°0 aZ1S°0 @ 

0°SS2t O° ort 0°S2sS 9°LL2 e°uare 9 wor? OO JEVTE*U 90°162 SALE tise! 16b8°0 991G°O + &€ 

O°SS¢t o*90dT €°0 arrty O°“Lice b°LSee OO E5t°O Corer’ L°942E CN ae | O00C"D- O528°O ioe 

O°SS¢el O* JUN e°ee €°Ler S"atet S°LS ee VO ITESETO CIE G°LY2E deo") 9tE1°O 0998°0 9 2 a 
O°SS2t eben a | a°S4l 6°92 e°etee S°2Ged OO J1EGETO IU lke OL ret denrt SYL2°9 e1ea"o 6 2 ps 

O°SSZ2l 9° 2091 a" EV2 Teese O°STLE G°8See OO J8fS€°O GH°2LE T° oo2e vloeea 686¢°O 6941°0O 4 2 

0°SS2zt O° CFE o°2Le O° dte€ S°8O7F C°URee ND 3226S4°O B4°4hE O° LEE Stet €9tG"D 8901°O t ¢ 

QO 4.621 9° 2031 2°S2E 9°262 g*T0O7t T2922 OO 4296E°O Ltr ote Coc ce eet ries°o ¥219°0 g¢ 2 

O°S62t e291 5°99 e°S%€ U*Zzaert 9° 9022 O00 JOSIE °O $9*6H2 2°424E GIST GoZR"D 9629°O tr 4 

O°SS2t 9° IG691 3°90 1°009 tf Ort chord 00 3930€°O €0°282 B°SS%E 2ES°t DOOC*O- wetort it 

O°Sset O° 097 2°28 7°96S 6° 20%E o*LOt2 LO 39F08°O Se 2K82 7°S5%E Zeger 6$E1°9 $820°) 9 1% 

O°SS21 9°39991 $7eot 6°9L6 6°00%F Ivo? VO 3680€°O 06°%262 T° EGE 2eS°T 7692°0 wool 4 4 

i O°S6G621 O°20)1 i*tor €°89S O° LORE dood 90 3960€°O 19°€82 O° OS %F 92$°1 CABETO 64$6°O * 1 

O°Ssel O°3071 S°ETE 6°60S S*EOtE £° 0022 QO ISOTE*O 99° 482 B°Soee ves" 002 5°0 #LoP OQ € ol 

! 0°SG2T C°IIIT wrlle €°L oe 6° LEE 6° 1022 00 BWITESO Gb°SHe 2° 0o%t C2a°1 &2t 9°) oOT2R°O @.4 

: O°SS2T VOT 3°SE% 8°20 O°OREE £° 7022 OO SXETL*O Ob TLoe C°2Eoe S1S°t 1ste°d o¢cr°o tot 
(ABT/NIG) C2NIZIDWCIZSZLS) CI3SZIS) = 6939S719) (re O9Td fed ss4Id  C2NE7 981) 6995799) (nt) (ND) 

4 14 Ld A n 1 WHY d ie) 4 7 « rot 


SUILZA¥OVd MOT# HOTB2ANS ORV AxWOANDG 


Cadel d) S9°%T~ . lAQAT C3GT-245) VETOEB~ 8 LWIWA (390T-b49 96°99 “ iwowx 
(481) 89°9- 2 2SMe4L7 (aut? 6ec°el = ASVHHLA (jJ@T) EC*S26I~ » 1SMedqa® 
2N666°C Olive Jive MO1s SSVA (ZeedLb LS89°E FVIuE NOTIIZS $S3u9 


CUIeM FITS SSUW TINT OL LAINE JO OLAV 342 AG DILIEEI Met NIG BAW SENINOGWID ISM) SUsLehVBYd LSNy8d 


S$ a3aNvId (NI) $$62°9 ne - JIVIUNS NITINIOS 


(panui3uo)) “gi vanbLy 


0290°0 = x ¥1130 2eCo8°o » BOLIV4 ALZSVS 9 = £ ONY @ «© 3 INIOd ONELIND1 


SUILIMVENS NOLIVINDIW 53I15K 


O°Ssel Ar00d3 a°0- O°8ls- G°2LeF T°9e2e QU 349€C°O 29O°CTE Oreeee O99"! O0OC*O= wrtOtt- 4 tt 
SHGet o*2031 aces 6421S- U'seer 4° SC22 OO 319fk*O VO°ETE VG2EL T99°t TSFITO 9a20°1T- 9 C1 
O°SS2t 0° 305t 2°sat 6°6S5~ 1°ORzs, O° REZ OO JOSEETO ORT ITS 1° 9UbE 79971 6292°S eg200°t- GS tI 
0°SS2I Laer bo | T*vt2 O°RES- B°ERLE R°ceee OO 3229EL°O 1H*OlE oO EE 99net 19 E°0 8AS6°O" 9 Lt 
2°662 o°v0y} €Hc2 L°406- 9° CHes C'lede OO 20LCC°O LerOre C°OLLE £99et vEtSV 26680. € 4t 
0°bS2. aeooor "Sek 9°694- 9° ONE "2k 2 OO 39 EEO «Te*OTE Crees B9Ox*? 00t 9°0 evze°o- 7 FI 
0°SS21 * 902, T°Lot 9°TL9- 9° O6ZE uote ez Ov 42Z2EE°O ES OIE #19€E devel rd © mae) Uotero- taf 
O°Ss2t oroerst €°0~ 6° ALY b Tere LTER22 OO 3T¥LE°O 8 %6°SSE O°2G16 taerd OOCC*O= 2HLR°O- ¢ el 
0°SS21 O° 20)! 4° 6S €°oto~ Z2°9CTE 9° fee2 GO JTEARTO BA HGE O°9STE i ion! 99€1°0 oo9RtC 9 i 
) O°user Dhaerene | eres S* Ble Lee te o°ORLE. OO IBULe*O LEE O°colt yeert wore*a L9OGRTOe 4 1 
N O°Ss2t 70991 a°Get L°G6E- Loree &*°O0ede OO SELLETO BEer2Zne U°G71¢ cecet R160°9 Veaito- » at 
H O°b la 0* 091 (°e>2 a°G9G- £°ECTE g°ORee OO 36tZE*OD LORS ecole eeert €$15°0 Setero- ¢ 2t 
O°Ss2t a*0u73 €*€ 62 ttddee 2° OTE Bole VO WOLE*O F2°24KE Vena OLeTl 1619°0 SEZ9°O- 2 ‘ 
O°Ssel OTS Bw Rey dV OlE- O* bodt £°Red? 00 WOtETY OLLOE O°OVEE yvaret q12Hn°9 HERO°O~ Tet 
O°6S62E O°I07t 2°0- St2he- 4*9062 ea ee ig 00 VR2>*O Br Bly 2Hled a9e°1 OOOGO= TG6tE*O- 2 ott 
O°SS7t O° 071 aree ee ole~ 4*llod oo ore? OO 3692%°0 ETTLte 2° b1b2 €S2°U 98f 10 S10L’O- 9 41 
O°6sat Ot our 6°69 1*°661- 2*9IK2 L°eote OO 32862%°0) 1H°Sl> t* 4262 $21 2202°O = 8097"0- %& 141 
O°SS2t o7 2091 DOO wate C*GtK2 6°CHCe OO W9Z’O «TTT OTe O°t 262 4Serl Usetes €S64°O- & I 
O°Ss2t SIGIR Seat G°G91> e°edto2 9° eate 00 14G626"0  B9°KTY 9° 4 162 Ssert t205°0 O0196°O- £ Ut 
0°SS21 ae yey RIEL LecMne~ b*oole G*2kee OD 30609t°O SI*04E S°SElE eeect bHOL*0 Cols*G= ¢ 1 
G*6521 Oe ater t'to% a°2len Cort E° S220 OO J9BEC*O 849° 90E 9 ODES OOr°1 1260'O OLS. 1 ut 
pe O°4Sd4 NO IUdL v°O- arture Stee O° vot? QO 39E29°O BET LRY i the aw od stl OOOCTO= £996°0- F Ol 
O°SSel yd e*et 6°00T- Pow? e°tot? OO Meer tu tt lee Orlee? 96tel eorren ueeZy°O- % Ol 
0°S421 ast aro be Che ool? U'cote 00 3eer°O B2°UL® cde?’ VAS ean two bELo°Oe & Ot 
‘ O°6521 orev G*t+ 6°48- Stolle Urtoe2 OO J2e7°O Tether zee’ 96th CE61°O ELALTO- oO) Ot a 
O°SS21 Ne eust be eat ie 2 S*S2Re G* Vode OO JOEL 7°O GETS 9° 2662 oserl 116S6°9 oOF°O- © OF c 
O°S6zt Ada greed 9° aee~ N° OG1E Grohe? OO J999F°O EX Lv€ T°9RTE earl 6091°O 6108°O- 2 Ol 
O°6S2t SIDI C10ts 6°9%e~ O°Etee 9° le 22 OO 3I692C°O 20° LOE €°oece oar Ceseru weet o- tt oa 
O°6Se1 Gt out d°0+ 4°GS= O° 9292 Otele? GO 3496%°U Get aby $r12o2 ttt 0000°0 9Olt'O & 6 
eos. O°SSEE O90 > C'S 1°96 eraeve C9 oe V0 10%67°O0 3 %6°96% €°6292 eued lovteo 12980 9 6 
O°S52) O° 2 IIT t*e a°24- ZPAZV S*yr4e UO 3%64"O Tl hor £°R292 eueet 6842°0 vC2°Or & 6 
0°SS21 “3991 iets €*Gl- C°SdLe A l6E2 00 s9169°O 92 °69% B°ger2 astet $694°0 $S22°O- 4% 6 
O°gset runt rest 9°elt- T°6C62 2° ore? 30 31e%9"O) SOttIe 6° 1Tb?e o92°1 #959°D S9IZ"O" € 6 
0°$621 OTN a 4s g°aote E°EHTE Selle 00 31OS9L°Q 8S*Set O° EOlt aS ia | Oke RTD avez O- 2 6 
O°SS21 9991 $°aGG 2rbkt- 2°S2tk 9°0222 OO 316¢0°O *8*00€ OLE oeoet Cloctt SUl2"O- ob 6 
O°SS21 OVI 2°0- S°S9- U°902~ O°ul 92 00 38669°O 6° C0S 4 ere oorey o000c*o {e@1°O- «4 & 
“ssel wr sus Sha’) S°44- 0°4097 O°O2r2 GO 2Wobv"O =€O° CIS ©9092 oot's $0 IO OStt*O- 9 @ 
O°Ss2l 0° 9071 r°Or 1°6- 7° LEA atl oe OD 2¥€69°O £2°964% £°T€92 erect €acers 9e4l°O- 6 8 
0°6S21 9799071 3°99 6°1S- S°0GL2 9° 06t2 OO 22CL9*°O 46°94 (he kwed Voner 4€25°0 Lyset o- © 8 
O°6G621 9°00 treet Orkd- ¥°Olo2 2°HEET 00 31802%°0 66°80¥ 8°S¥b2 99z°U 9169°O best O- 4 AR 
O°s.21 09091 are2sy t°2ot- i°Sole eter 00 3¥Y9E*G =Zo° ont 2°961t Coert $998°O eovtto~ 2 8 
O°S621 O°9091 €°BLS trv0t- a°Olte Sollee OO BV *ZE°O C6 ° 662 2° OEE Tort tezort *erto- t a 
0°SS21 O°399) 2°o- $°Se- orscve O°02%2 00 38664°0 €6°COS #4992 ootrt o00c’o g700°0- & ¢ 
O°SS2l IOI d°0 S°Se- o°9092 O°0lr2 00 38469°0 3 €6°C0S 9°9992 a0tet 9vBt°O Heoc°o- 9 2 
Orsg2t 0°01 or2t $°6%- orzEene QE 4z GO 3€64°O 80°9be 4 2€92 eel 199€°9 G*900°0- © 2 
O°SSeI O° ort £°e9 ek A ded Celere $°06E2 00 W0L9°0 Oc" 894 v° 2062 sored 2296°9 9900°O- ¥ 42 
O°6S2t 9°9991 a°zet blr Uel7He Che ae 4 00 30290 Bf "60% 1°e96e £9271 1tt2z°O «€sG0°0- ¢€ 2 
CAOI/NIGD CEONTZ IDV IISZL GD 699S724) 6995719) (4 930) (2457407) CONES 9OT) 6938713) (WI) (NI) 
ad to La! A n 4 One d fe] “ ? A rot 


$ sNVId (NHI) | 66462°0O . x - J2¥sers MITANTOS 


peg atone MTOR EC 4 ss * + . 
(Panutjzuo)) “gt aunbl 
: O°SS2t 070021 6°L6% O°St- L°leze 2°1S$22 ON 328%f£°O BS 9ZE O°OLZE ztv't T4870 7¥700"°O- ¢ 2L 
O°sSzt O*9031 e°aas a*r2~ O°LEee rrLtz2z 00 3922€°O 907462 9°OsCE $6%*) 997N°! $t00°O~- 3 t 
O°6s7zt 9° 030 23°09 1*%~ o°reerg 9° ez QO 3CeHs°O F2*2Er f°a297 Teed oong'y eeerea t 9 
o*sszt O°903t a°9 U°6€= h°S202 1"$te2z 00 3B96%°O 26*16e @°S7292 ote CS2T°O 9 4 
O*Sssel a°o071 a°te L£°92= e°9692 ¥'SotZ 00 JbL49°O 69*2445 9°R697 svtrt TSET°O § 9 
O°SS21 0*I031 S°eli B°EI~ z°eeee 4°S99€2 00 3299%°O €0°bEY %°S<97 12" $S0T°O » 9 
0°SSZ1 O° 303t E°Ss2 2°ot O°1S06 reader 00 3S46E°O FE°HLE 1°t9ae ydE°T **tT°o t 9 
i O°SSel O*903T 2° 96% O*ts OLE ¥°8972z 00 209 EO FET HZE G°SLZE Levey 2fET°O @ 9 
H O°SS21 0*00I1 5°285 Tres e°SVEE 4°9l22 00 3802£°O $0°962 6°96CE oos*! e€t°a t 9 
O°SSzZt QO*39031 2°93 aE %°cOld €°L6€2 OO 3992%°0 %t2°Ole 7°89L2 Lote eT9E°O 2 4 
O°Ss2zt 9° I031 area S'k- 9k OLE Z°LbES OO 22929°O0 “LETT 2°ear? Lott *ELETO 9 GS 
O°SG21 O° 203% nT 4 a°ole- 6°8692 £°SOEL OO JVLL¥°O we*elye 1°6592 $s el O9G2°O 6 S 
{ O°ss2zt o°90%L S°tOL 2-at &°9te2 6°99EZ OU 327S94°N TO°ReY ecstgd q(2*t $997°0 4 § 
0°SszI O°Jd31 “l£92 $°29 9°oS0€ o°90t2 00 3926€°0 92°L2E @°6308 e2erl 6e92°0 t 4 
0°SS2t 9°903T i°0e4 €*eel e°2526 9°S922 CO JREVETO TL2*1ZE V°SReE Zee" 1692°0 e 6$ 
O°scel O° 303t "Les ortet T°SSEE A°Uteze OO 3Z9IE°O 69°£62 O° 9IVE $OS*t e29z°0 1 4 
O°SS2i O° IGdT 770 Bays £°Shed o°esez OO 42€94°0 EBS "orn Lert eats°o t » 
O°6S2l O° OFT "42 Vows, rage 9° 2962 OO 2€€%%°O SE°9ED 2°Uvae exert 20%1°O €aze°o 9 4 
O°sszt 0* 2031 e719 t°o09 6° eee e°coc?e 00 30%9¥°O GI°LEY 1°s7a72e 912° O2L2°O 8S99°0 4 9% 
| O°ss2et O° IOI w°od o°l4 elke RS e°o9e2 00 39$9%°0 “L9°RE% O*ece?d ciz°t 9¥9¢°O 9olerd 7 
O°Ssszt O°D071 2°612 eoout "2908 €°SOEL OO AVZ6E*O S$9°OLE V°2L0€ betrt $%64°0 9700°0 € 4 
O°sset O°30)I 2°SS* 6*L6T O° ASZE 6°E¥22 00 3a92%€°O ZE*OZE $°S52E Gort 16062°O 6L68°O 2° 
O°ssel 7° 3091 1°966 £°902 6° 29CE "6022 0O 3OLTE*O Saree O° tee 60s" 1896°O d4ot°o 1 » 
O°GS2T O°2051 &°O "oC? 6°SL08 T*20€2 00 3€606°O Ye° Ese $*9RBOE 9tt°T 000C°0O voto i t 
O°SS2l 0°20I1 1°€s 2°22 §°OL0€ ¥y° Lote OO VAMBETO G2rzLEe 2°L00€ eter? $octeo 9969°0 9 +t 
0°64521 Laman ree) | $°901 64902 C°LLOE 2°10Ee¢ OO 106@£°QO “4O°ELE 6° SA0E areet 6€22°0 8$59°0 gS F€ 
0°SS2k O° 71 a°ost L°ort ¥°1TL0€ e2°e0E2 OO 3€00€°O 19°97E ¥* OBIE ott °? SEGETOD F6es°O , € 
O°SSel 9°03) ec" ort b° Bel 4°9906 B*40E2 OO 3286E°O Gtrore 1°920€ o1e*t G»0$°0 900$°0 £ c 
1 O°SEsel 9° u0IT $°9t? le? €°O92€ 2°? OO FIZ"E€°O CL2*OTe O°862E Laoet aotary 691$°O e-4 
0°4521 y° 051 areas DIAZ O°Sote o°1022 OO J66TE°O %9°0862 0°02 ¢ euset ¥t06°O 202¢°0 | ‘ 
O°SSel 2° 9G 31 2°0 2° 46% O*LBLZE 9°10 ee OO J9PLELSO Laevle ¥°O1lEE OS") O0OC*O- #veRBTO toe 2 
O°ssel VOTE €*€e 1'oo4 92008 O°Le22 Ov JEECETO Srv’ O*OTEE Bse"t 2840°O C1daro 9 2 < 
O°“Set Oot 9°94 ° 994% C°2B2E e1ee2 OO AVLEELTO CS* HIE s°OIle 867° 1 Orv2 2°) aAta’o GS ?¢@ “8 
O°6521 2" IO31 2° RE? I°*ts €°RIZE z°at 22 00 ALMEETO Leese S°STEE 96471 $709°D ¥$0L°O 4 2 
O°SS2l hare DB | 7° 90€ t*obt Lact (*Cy922 VO 146F0°O BOCETE BADE S771 O025°O 2eus°o { rd 
O°SS21 yryror *"99€ 9°9EE 9 99et O° 2422 OO JIT+e*O BORIE €*ZOEE bore AGZ9°O $2e9°o ee 
0°6421 LO Sn | »*2R% OA e°2ate 9° 902 OO STETOA $9°HR2 2°92 SI6et oct a°O oxtG"O 1 é 
O°GS21 Vr yO7T 3°9 9°66S "OOF 1° 461d 00 30608°O EO°EBe Or25%e eh ae | OD00°D- 9980" tl 1 
woe O°SSet > 9OIT e°te O° 6S e°O0%E 2° R612 00 316080 F9O°COL L°2646 2S°1 es ieo 94fO°l 9 1 
, O°Seel dy" ODN t*.9t 2°LaS d*aoFt t* vole OO IZL0E"O 6t°€82 {°2S%¢ ose ots2°o 90T0"L 4% 1 
O'Sset CTOON t*6t2 2°h7S O°ebte t*o612 00 2605°O ZB°ERS 2° G9 826° b10%°)D £9976°O + { 
O°S6S2t we yiot sr ite GS" J1S O°Zete 2°Q0L22 00 JBXIE°O = boryhe terete §25° @e2o°) $9C6°O { H 
f V°S52T yew 4°Gre T°o9e €°SOCe £72022 90 322TE*O «96 °982 S°LESE 2eo*t 4g€9°O loegerd rd if 
2°6S21 Or JOT tees 4£°60% trerce R902 OO WETECO Se°BRH2e 2°OE *E ets’ 4t9a°o C8EL°0 1 I 
(ABIZNAGD CPMEZA ADEE DISZI a) 699S74a5) (239/34) tu 939) (€147eavd C2HE/4d0T) CDISZIAS) (NT) (ald 
a) id a A n 2 344 d is] cy rd A r i 
Su2L NVM MOIS BOPYIINT ONY ABYONDOU 
(3-293 LOT . 1a? C41BB-24) VOCED rwOwa Cada sd 99° “ Aww 
1487) 09 OO- 2 asnunal Cage 292. we LS NWHIA C497) 19°C H6E- = ySNuayx 
804 66°O © OLAV 31¥u MOTE SS¥d {Zeon} O4tl*t *VJuV NOLIDAIS S$S$009 


(3iv4 MUT4 SSee IWIOT OL IWELEND #0 OLAve FHL AO OIETATL Wee YIIG DAW SININDIWOD LSMaee? SHILIMVEG LSM 


9 3N¥ Te {NT} 6£0€°O = * - 2VIWNS NILINIOS 


O°Sset 
O°SS2l 
O°652) 
O°S6¢1 
O°SS2t 
O°SSZ1 
O°S424 
O°HGel 
O°6S21 
O°4S$21 
O°“SS 
O°4621 
O°SSer 
O°SSed 
O'SSet 
O°SSel 
O°SS2t 
O°6S271 
O°SS21 
O°SS2t 
O°SG520 
O°4421 
O°G471 
O°sGdl 
OGG) 
O'esel 
O°SSel 
O°SS21 
O°SSET 
O°ssel 
O°4621 
0°SS20 
O°SS52Z1 
B°SGzt 
O°4S2i 
O°Egdl 
0°S421 
O°SS621 
O°Sart 
O°SG21 
O°SSET 
Q°SGer 
O*ssel 
Orseel 
O°SS71 
O°%set 
O°SS2t 


teBt7ALR) 


H 


O77 
O° ID) 
ar joy 
mood 
eee ree | 
omar re B | 
Laare lO | 
IV 
phe RP ht 
Or goot 
DV IOW 
90 Ot 
Care ht 
2091 
O* U1 
or oudt 
2" IOI 
O° JUI1 
Qu 
Or Od 
dost 
eh | 
OG 
Orr 
VV 
O' WIT 
HOOT 
N'oOdT 
OT ODT 
2° 041 
Wrage 
IOI 
9° 9091 
O° IIT 
sort 
OI 


o*0091 
A dO>t 
re 20F1 
99094 


STAGE 


C2NT7 9900009395714) 


id 


LI 


O290°O 


2°4es- 
er9lg- 
€°194~ 
BESS 
e° ROS 

E*H99- 
9°" 2e- 
Lovoee 
O° 689- 
G°tly~ 
i*994~ 
oe 2 
tose - 
2° O9E- 
o°2Re~ 
L°6Le- 
6°S49L- 
4°ho?d 

O°S12= 
9° 21t- 
L°OtE- 
O° dSI- 
ae 2 
2° ete 
Bot 
o*04T- 
6° 950~ 
9°S92- 
gw’ bi 

O°9d~ 

9° 69- 

1°6o- 


ELTA © 1 
A 


» * Vit 4947670 . 
UTTEL4 etd? OO 399€t°O 
w9Oed gene? 00 IO%EL SO 
y*ORZE eorees OO IKTETO 
A°ZHZE 2°OCL2 OO I22C0°O 
O*>HZE aoe 00 OZEETO 
Cd Tad bole? 00 J61E8°O 
97 hO2e4 Che rasd OO Fete *O 
er Care 8" 9922 DO IBRGETO 
Preaie aeaee OO 10RG4*O 
O° Zorg € 2402 00 38946 °0 
4 ret L°n9e€ 00 1999670 
tr vore are? OO 2796450 
vy LOE 8° 0922 OO 32650 
2° 6084 GOOLE OO 36621 "9 
2° 000F tr Ole? WO 34S05°O 
8° 4004 VOTE? uO It 9UHO 
4° 9006 9° Ble? QO 34€09°O 
2° H00F S*HTE? OO 3¥€O¥*O 
a ttoe Orr ee 00 370976 
275076 S°nsee O00 16€66°O 
7°STER RE L72 OO I€2¢€°O 
R°EGRe care 5 o4 Of I9e4%*0 
a sone eryete 00 Jbtsy"O 
6° 80e? SO lete OO I415%°O 
e' BOR? yr hate 00 J9T44°O 
+ O20F rated 00 30104°O 
o°FTlet WV O420 OO I9164°O 
Leet 9 O22 OO 3€S2C°O 
Ite, 2° 2092 OO I21er"Oo 
6°99 e° Ore 00 3€189°O 
f°C B92 elo 00 3€109°0 
I°9tae 9 O9E? 00 166%9°0 
O° OCOE C°aer OO 6R46C°O 
Urveze 7eSee OO J66%€°O 
O° OTE 2°olee Ov 3tsee°O 
G°O29¢ 2°9tae 90 3hS69°O 
9° 0292 tr Pied 00 3096%°0 
0°6892 +°00%¢ 00 26649°O 
[eee ard 2°94? 00 36R49°O 
9606 eriise OO 31926¢°0 
Or2eze €*2622 00 3n6%t°O 
2°2ere vy ere2 09 JSEZE°O 
2°9to7g VL dV 92 00 38969°O 
2°veoe voter 00 31S69°0 
9° 2692 9° 6662 OO 3162%°0 
S°Gene G"L9EL QO Ad299°O 
O*O%0E 6° OTE? Q0 269466 °O 

433S/14) (u 970) f€s4/aa7d 
n 4 Dont 


(panut uo) 


BOL IVA ARTIVS 


eo Ttt 
Gerole 
TH" Ocf 
tar noe 
2y° HOC 
2eR5t 
VO" soe 
79°REE 
Cordes 
GOOLE 
SO'sre 
OAGES 
BOTSLE 
@9°SOE 
Ou Zot 
42° O6E 
Qi *aot 
69°CRE 
GV" oas 
COreee 
22°C0€ 
Ovary 
OS°94% 
TE o4% 
G2°99 
TH *98E 
29° OC’ 
86° 096 
grees 
vo" tae 
19o°Tee 
OL °*% 
OV" 9BE 
2S °O2E 
OL bbe 
Be" hoy 
20°44 
20°0OR+ 
04° 29% 
Oo tat 
CG°L2E 
$0°662 
6° 00S 
Fe°06y 
0°6LY 
fa* lee 
ere 


S"ZECE 
Voces 
er Ostet 
Oe ott 
ashe 
e°KHkE 
GREE 
("tees 
t°Sl2E 
w*ORCE 
G°ZECE 
C°Z2ECE 
OSE Ck 
f° 9GCE 
S°ETOL 
Vert 
O° 220t 
€°e20F 
ee 20E 
oT Erle 
»* OEE 
8°L38¢ 
e°orke 
wrLlhe 
Or21ee 
&°LEOE 
9° 9G2E 
oronee 
4° fae? 
trees 
z°eere 
S°oted 
124908 
U°29ZE 
O° rece 
orren 
6°0792 
6°6O9e 
ves7he 
oe" 2 vO 
T°9IeEe 
Ieneee 
O°“LT9? 
9°e2Or 
¥°EH92 
z°eze?d 
Tris oE 


t 


CONT IOV) CDIS/ RED 


6 


9 JNV Td 


ie) 
(NI 


"gt vanhl4 


» Tr any @ ol 


SuaLaMy 
e9aet p00c"D 
99971 z9¢1°0 
O94") 202 2°O 
Tao" 7b60°9 
Sewrt Bles'"o 
Zaeed #SE9°R 
vived aha gd 
Gore? O000C'D« 
gOrel hae yeo 
Vwyet Lle2'a 
errr tinge 
erert 9614°O 
wheel W4H29° 
Odert 4024*%U 
Ook oo0C°O 
zoe che red 
voecl WE LTO 
voq*l LLHETO 
$otrt ¥S0$°O 
hn | ola’? 
Ckerl rondo 
Bott O00C*0- 
bottl 999 1°O 
ooe"l Ols"o 
o0e*t 2 i) 
6ocel 24b4°0 
verre Gearra 
Ti eae | 9$90°9 
eeurl 0000°0- 
Ocret COn1°9 
BEIT 2662°0 
Cozet 60L4°9 
viert #H99° 
e2ort 6049 0°0 
tored oote*l 
9oT*t 0900°0 
gory 900 TSO 
lores aae¢ro 
902°1 4626°0 
atert 2102°9 
Onert &€29ero 
Corel faecry 
1) a | on90°0- 
aweet L9at's 
gered 9990°0 
aoz°) bEYG"O 
eters OSt2°o 

(mad 
“ ? 
620£°O “x 


INTOd UWE LEAT 


29907 T- 
fitort 
ttyot1: 
¥2967°0- 
2106°0 
91eeOo- 
Ry ma!) 
yehR*Q- 
9978°O- 
tveard 
O67 °O+ 
ate o- 
(OO YD 
ota 
4o1ero 
¥SO7°O 
OG99%U- 
ObbS*O 
€OIs"O: 
THeS°0 
6426°0 
REO: 
*0€G6°O 
O94%°O 
LOMT TOs 
Zeus Oe 
8405°O- 
vC0s"O- 
OTA O- 
O*9F*0 
9992°O- 
Vds1e°Q- 
apr7z-o 
981 2°Q- 
koid°o- 
O006T*Q- 
Osetra 
£G69T°O- 
O64T O- 
vert" O- 
¥ZRT°O~ 
1o%1"O- 
%$06°0- 
S00" O- 
4s00°0- 
2600°0- 
OS00*0- 
(mr) 
4 


‘ 
9 
% 
¥ 
‘ 
¢ 


5 ein ek Ae Oe Meal din tae 


PER OMEN M OL SEH OKNMET HOM ON NS 


r 


S NOLIVINGI sII5% 


6 


ae hm ESOT HE ECECSCS seo 


3J2VIUAS NITINWS 


a ES Ss = ————— : = 
? 


O°SS21 
O°Gset 
Ov"SGzt 
O°Sbe! 
O°Ssey 
O°SGz 
O°Seet 
O°SS7t 
O°GSet 
O°6ee1 

Y°SS7U 
O°SS2t 
O°SGer 
O°SS21 
O°6s2zt 
O°Sset 


SLT 
O"GS21 
O°%G21 
O°SS2t 
O°6S21 
O°SSL1 
O°Sgel 
O°SSel 
O°SS21 
O°SSel 
O°sgel 
O°ssel 
O°Ssel 
O*SS2t 
U°SS21 
O°SSel 
O°SG21 
O°SS21 
O°Seel 
O°SS21 
O°4G21 
O°S6421 
O°SS2t 
O°SS21 
O°6S21 
(#eOd/N 18) 
LSI 


o°900T 
0°O091 
0°3031 
a*O0oT 
0° 900T 
o°9031 
O*°I071 
O°995t 
0*90501 
0°903f 
0°07 
O°I071 
n°onot 
O*09001 
o°203t 
9°30 31 
O° ONT 
O°9091 
bare 8 | 
0°I03T 
oO°I03t 
9°9031 
O°IOI1 
O°9991 
O° UCRT 
D907 
0°9071 
9° 2031 
Hy Q00T 
N° 091 
VIO 
N09 
AY 909F 
O° IOI 
erro | 
O° UO 9T 
A I0dT 
mr I07t 
ober kt) 
O° 7091 

"2U7t 
O° 3071 
MP ODT 
O° 2091 


t-eoe 
0°196 
2°9- 
wre2ut 
S°eee 
2°t44 
@°029 
a" 46d 
9° 466 
0°90 

trot 
6°022 
1°904 
£°Sts 
9°992 
G°9t6 
0°0 

2°021 
S°%E2 
2° ete 
tr2e 
a9°OLe 
2° 168 
3°90 

z°e2I 
o°t ee 
e°26€ 
a°e4s 
e269 
2°9t8 
Lae) 

y*92T 
Vere 
G99 
e°olky 
8° OLS 
5°992 
9°O 

creat 
f°XGL 
E’OL€ 
bene 
9° URS 
2°99 


CANA S2UICIISS IGS 
* 


tat 


zZ"¥t= 
8°6- 
O°sel 
8°68 
O°Lb 
€'66 
6° EOR 
LeoUt 
orort 
1°682 
£7992 
$7 lol 
arzt2 
ole 
Z°te? 
T°O%2 
2°9S¢ 
we ety 
e°cee 
6°60€ 
O°eee 
S°UGE 
O°o%e 
6°29 
2°909 
4° 996 
4°90% 
S* 624% 
a7 ON 
C°tly 
O° R6L 
vine 
N°LSd 
er1ge 
£7949 
1°26% 
C°HAG 
£°098 
€°266 
oles 
5°98t 
9°OL? 
R°OSL 
wget 
(23572 
A 


Cie 


9°0L9S 
6°649S 
T°1$95 
Te2eesg 
"SESS 
OF ISG 
6° T6495 
€°O2L9S6 
L°Ov4s 
€°2ESS 
O°gESe 
a CESS 
S°216¢ 
G°U45S 
WGLesS 
S° 6449S 
9° O16 
T°tss 
€°liss 
Hr liss 
7*°0H9S 
9°6995 
1°649S 
0°06%% 
5°069S 
£°O6G 
4° Ob%S 
2°06 
16999 
DRG 
POO 
2° 6995 
1°69%G 
9° 6995 
2°66 94S 
0° O9%4 
278945 
O° He9S 
4° u94S 
A°H94G 
Ww HOHS 
G°R79S 
2° BHSS 
UrRasg 
4) (39S7t4) 
n 


Wedd) GEE 


CiBT) vECORT- 


(panuljuoy) “gy, aunb14 

otal la-26Etera EC° at L°6LSS BLO°€ FoO9CTL ZVVO"0 Qf 4 
L°O6KT TO-3ECLE TO SIRE O° ESS LUO" E $4552 6910°O a | 
Breer Tuo-3EE0£°O F4reT £°2S46S HOLE O000°D= 2026°90 4.9 
Z° eet TO-2420E°O F447 et 6°CSSS Ore Vesero £69€°O 9 9 
1°98¢1 TO-3T@OF°O 6h°hT A°h9SS 760*E 900 6°0 2060°O 45 9 
é°teil lO-3RETE°O OL°RE U°CESs ze0°e€ 9249 l i 6E°O -“ 9 
2°oer To-3991E°O OF °UT 6°92GS 420°C 1¢06°T 7S0E°O « 9 
e°ceil TO-3t9TE*Q =SErRl B°h2SE ear VOR KZ S7U0°0 z 9 
o°O0ot! 1O-3eC(E°Q FtI°CT O°eets CHOr’ OoElee 2vtt°o 1 9 
or,acy VO-3Z0TE°Q = FOr2T 6°6ERS 900°¢ o00c*o eatorl 14 
2°Leer TO-23660€°Q 26°41 %°O8SS On0°E 2908°O 904%6°0O 9 4 
the ak | lO-JE60E°O LA*Lt °U4SS (sor £ateco 122° &% 
O° Toni TO-3L9TE°O §=S2°OT o° ess oen-¢€ #lh!ert £202°9 4% 
O°+7Okt TO-3O0LTEO Lent 1°*¢$s 910°C ate oe Ldve?o { % 
s°COocl 1O=-347TE°O FEET 4 OLS 4s0°¢ 20G2%2 1492°0 ¢ % 
O° leet TO-3SktEerd Li" Nt S° CESS 4 20rd $149? O621°0 { 4% 
1°ceet TO-J09TE*O YE°RI 0°62S6 rR.ore to0c*o 6%69°)1 c 

O°eoet TO-3666"°O €E°OT C°O2SS F290°% toet°o Sloe 9 
O° LGet WO-3LG7T0°O ZE°RI 9°O76¢ H10°€ geen CC62°T % 8 
9° 2HET UN=39Etera OC°Rt T°ORSS 610°C 996 C°' €oSo°t * 
9° 96F1 TO-aL2TC°O 9e°Rt O°S2SS 410°° sororr SZRO°T t 
L°toet (G-J99TE"O 6F°RE er12ss 920°C £G01°R 6Short 4 
1rtoet TO-JAETESO BIRT e°CTSS 290°C Tok 6°? 90L0°! lo4 
O°Sotl lLO-127GTE"O Se°Rt O°S26S Ci0re WOOO 20%6°% 4 4 
6° V6TT TO-JOOTE"O eH°Ot 2°S2ss vI90°%€ Ove €°O ¥O06"T 9 ¢€ 
6°%6E1 TO-20GTE°O R27 eT ¥°S76S 740°C 2iberd 9060°) & 
O°SbEt TO“ 3B "O oval o°S2S5 ¥LO°€ 22icrl wELOT y 4 
b"4oct LO-2081E°O 68°RT £°S2SS store 989C*t OSitrt + ¢€ 
O* FoLt TO-3021E°O SH°et Vk 2S 920°E 9O0ETT OLOer1 <4 
wot TO-32091E°O OBE £°20Ss r00°t BLL5% 92OLFT 4 
6° GET 1O-369Tt°O Uveet CL 254 FtO"" oouc so HOD? io? 
o'eoel TO-369TE OHO OH" EL H°LESG Hird O01 ded LOCtre 9 ¢2 
& fot 1O-I89TE°O OF°RT 4° LUSS 92ar°e {424°O 2G?’ 4 2 
6° EOET 1O=-JO9TEO THEI C°L 26S 910°% 269C°T OrT?e » ?¢ 
Toveel fo-yteteeo 29°81 O°L72S% 910°" doeecl HOLE) ‘ ¢ 
roar WO-1240E°O Z9TeY 6°95 GIOTE 249974 oYeO eg 2 
O° tect TO-2Z9TE"O 22° UT 2°2055 Te0't 992 WHOHOT toe 
yw Tokt 1O+209TE*O = O2°R1 L°eess evo'g o9NC"D 945170 ry t 
vr roet lO-209TE*O OLR 1° 2066 2e0°¢ TRETTO rae @ eed 9 1 
E*lakl UW- 2CTEQ B2°el O° 20SS €dGO"e w6Or°d 9799"% %» 
C*loetl TO-IOCTE'O OC TET are2ess CHOOT E 4o9C*l B14er? % 1 
+ S6tl TO-30etE"O 12°Rt 9° 2ESS eeO°’ ober CORES? 4 1 
9° toatl Yo=329TC°O 22°81 2°Z2EGG Te5°¢ OOFIT Gol? Cane | 
a7 tect UO-2E4Era C2°sy BPeLESS 1HO°t SOEGTY oiserk | 

(ey 930) (€aasad) C26) 7980) CIR78 8) tnd) (hd) 

4 way d ® “ ? A roy 
SUILIKT Vd FOV BOUWIANE ON ANVONNDG 
. AWOW? Cantera) CYTALET « LhMOWA (48-499 GC°OL- * dot jeex 
 AGMeetk? (4aty t9°9 = 49M, IBV) GHTESL~ © gS hat ad 
OQitvyu 3iyu AOVS SS¥w (Zeoent) 2eeurit SVINY WETADIS Sota? 


£€166°O “ 


CJLVe 4OVs SSew IVIOI OL IWELINI 


9O OLAWY Bee AQ ASLAALA WAH NIZG BAW SININDGWOD 1SMuKE) SBdnVVS 


€€ anvitd 


CNT} 


0000 °OT 


u ¥ 


TARA 


VIWIVNG MITA IDS 


{parulquoj) “gt aunbr4 


S338 G°z72e8 3WY) NOLINI3X3 


ascart = xX ¥1930 88650°T = BOLIVA Aw Yo 2 F ONY Tt ¢ ft tNI0d OND LIR1I 


SuIL3wvuyd A 4 VPINDIN SISK 


V°Sa2l OP sory Jo 7° t96- 9° 2595S 7° EBEl 1S: PRITE*O §=GO°R) 2° 96s 980°€ CONL*O~ 959G2°2- 2 £1 
14627 ae ast | Sr o2l C°L46- S° 2569S G°ARET TESTURTO 9° RT 1°95 980°C oleers lee re- 9 £2 
Gesget oe at L°9%e 2 °626- S°lge4 3 ts iesietie: Oo 90°ET 9° SESS 9R0°¢ teTs7o CC9e*e- GS CE 
UrSGT ae, g°9oe 9° AIRS E"2G%S e oft LO-sTCTETO LO°ST e°9e SS 98C°e reser 9e4S*e- 4» Ci 
BSget bacon vane 0 | aol o°SER- SIGS Or74st TO-FeZtE OQ BU et 9° SESS $Bor°¢e 292E°T elsete~ € ET 
O%9s7t bier Ha | trots 2°997- 0" CG45 t uel TO+387IL TO STTBI O°SeSs 28OrE Sogo) cbt e~ 2 ET 
2°sg2t Arle ale P°ORG- P* OGG o*S6ET Td 352TE°O CTT ST b~ofSS "BQ°e 49SE"T S$O%e"I- 1 Et 
Qscet haere | P Jo Saad ke BEL ted aie as 2° test LO$3trTETO Le°HI S°2ESS esore TOOC*O- GE9ETZ= 2 2T 
O'°SS2l seals Jets Vewbl- 27k lag Ge teet WD-> rik sO Te°seT G°2E5S e8or'e LeL€°9 2Oef*e- 9 2 
O°Sg71 ne aN ater? a O4E- OPEL 9% 9° lott LO-F27°S F259T f° TESS Tare 99¢4°9 l2se*d=- S$ 2i 
O°S6921 rn | "ta wey ae G2I4G 6° 16tt 13-329%TE°O 2" 3L s"1ess 1e0°€ oiecrt recr*2- % 2U 
C°4G62T ape t O95 R989 RUS Cree et 10-305 (°O ed'ul B°OESS g80°'€ 966E°% Olle" € et 
O°GSet aera | oan Wr 9eS- O° hL96 Gr 2ekl TOm3ES &°O OS °RT &°DESS 619°E SUaS*E SB99°1 2 et 
Dessel 2 ot Zeege PAS G°O56S 9° G4Cl LSE SO CU'BT 9° FbSS +80°e o26Ure 9eggrt tT 2 
Dears 3 " 3°72 Bord 6 S$6%S &*CEEL LIKAGETEG LU'Gt “" 266 eRore TOOC*O- LEvO"I- 2 It 
Usgel eer S*52T S°2I- 6°SEMS ur heet TO-4SeTL°O L2UBT S$" LESS C80re yoke $96" 9 Ait 
O°S62) rere | y° GE? 9° 96S— 2°SO96 e-reet TOmFWr tts GEBL VEESS 280°E 8964" 676L 1- G&G OW 
O°SSe1 wy wT’ Loe’ S*BLS~ ©' F656 O° 16F? TO-3€71TE*O Ecret T°etss 180°€ eeecrt StI9*I= & It 
O°os2t Gees egos Orl?o- £°HEMG O° e6cl TO-3F9IE*O 9E°RE £°IFSS o80*t 6liert GSo9e"I~ Ff 
O°ssgel eee eee | 3°999 1°2eo- O°TL9S S*2Ocl LO-3E5TR°O OF BT 2°Otss 640°C C261 oserei- 2 Ut 
O'ssel eros g* 328 R°93%- 2°06%S 2°00Fl TO-FHcrera ZU°Br 8°55 YBOrt S2ote? w29e°t- fot 
O°SS2t ae ee 3°90- BrLBo- 6°615S e°eeel TO=3769E°O BHTLE 2° t9SS Y6Ore LOOC*G = weboeT- 2 GI 
Gegs2t TIN O14 art Lon B°61S¢ t°duel TO-3560€°C 68°) 2°17SS tod°ft COR" wk Yeeort- 9 OT 
O°SSST Bakar Tee? Ct ose~ TOSS L°eart WO=-366 FO Cer dl £°096S 060°% 6062°C B7uz*t- S$ OF 
O°5S2R O° 094 yOeFr 7° I5E- TePiss C°RET Wr 39tetU Let O°OESS 680°t woocs 7ES9"F- 4 Ol fom 
3°SS2t 9° 349 £° 925 2° 99F- 0°76%S E°esFl TO-30STR°Q 8e°Rt 8°OtSs IsOre T6TS*t O€10°l- € GI ia) 
O°sgel ohne rn) er ote E°SLt- S*tl9s S°2eEL LO-SEGTE*O B2°9T €°9LSS seo°€e SST £990°T- 2 ol ad 
O°sser Orywev 6° RB S°SLE- R°*059S €*uo€l rO-3h2TF™O 2 BI 6°9ESS BOT? OIGS°? otvort- 1 ar 
9°SS2t eave ee | woe &°% Ee 9° 2975S B°Stl TO-3ELOE"O Fo°LT Leong? bOTE oooc*a= 2@E19I- ££ 6 
O°SS21 3° 393T S° St e°ott- €°29S6 oreodt WOW sSPEVE™D orc €£°255S corre POP ETD 9S£6°0~ 9 6 
0 sset N*30R "12? 9° 2%e~ O° 1965S 2*eRret TO=3770C°O =9S°LI £°0SSS torre ooe21°a oOfIL°O- GS ¢& 
O°SS2et VWI S™.Gs ek Sed 2° 16S 6°9e | TO-3ETTE°O LOTHT BLESS 280°E OL1ee1 619L°O- > 66 
9°SSet abanxeaen | 2°O8S S°892- RES ote TO-2261E°O 62°9T 2°OCSS OlO°€e trout GStz*0- ¢€ 6 
0°S62" ary ov "ood £°6G62= S°1L9S 97 2bet TO-J>STE°O DES 2°0SS me0re 29Ge%% O22L°O- 6 
Org 21 2 oe 1°S<6 2° tSeq BOGS 7° G6tt \O-36216°O E€1°8, 2° 49ESS yROE $999°2 $96s°c- 1 6 
u'ss2t pamceeue. | 9°90 CORT 6°LGSS 6°Lety TO-32T662°G Ltret 8° 0966 etree oooc’s S$806°O- £4 & 
O°sG21 renee | s°eul o°EET- £° 99566 o°ELel T9-3L66C°O «LS *2T £°65SS 29 as T99ESD 9LSE°O- 9 8 
d*sser he ae A 2°e82 2 Q9T- °6RGS B°tset 1O-34S0E°O Z9"Z1 *89SS 600°C 107 E"5 téBE°O- $ #8 
O°Ssel ee ae | L°1S% a dart- L°91SsS G7 RET TO-J307TE*G = 9urRt 6° FESS 980°C Qe rh°l SCRE"O- + 8B 
O°Ssel Saree a | Belts T°99te Z°EG7S 8° 2ozT 1O-39STE*O 2E°ST 9° 6265 BLOre 950¢e°1 2eréerc- € 8@ 
O°S$Z21 Ropu ee cree “of l- trlles B°26ET 1O-39S610°O 2t SI 2°oeSS 6L0°E Woe? Tose"o- 2 8 
O°sezy 7st 27156 we7ele 2°05%% 3°06ET TO-3TETE*O «41° 8t £°OheS vette biF 2°? Sese°O~ i 8 
Ogndl DggTt Vo- ide £° 0965 I°szet VO-3766¢C°O 6T°LT €°O79S ra eS vaot*O- o200°0 a 2 
V°sSe7t 9° OIT c°est wien 0 °9SSS Boz €t TO-WZIIETD «ETAT A°9SSS Bore. eets*o £9c9°O cot 
O°Ss2l O°3031 arele Brtee f° LSS Geet 1O-3690E°O Teeal 1°9964 7o0°E 291crt 0900°0 gS é 
O°5S21 peas lone | L°hae Lr ace £°otss "*Cecl Tu-s621e°O Clot L°7ESS 4BOrE cSeert »4100°C y & 
O°6621 e° 333% 3 4c? S°8I- 2055 treett 1O-329TE°"O = 9E°RT 9°825S fLO°E 6ryert €200°% € ¢ 
CaHGdsNasy 4781, 9691909557453 C999719)2 CISL) (4 930) (ELS/ABT) C2NT/9GT) (9987131 iNYTS (N17) 

” iia s A t a HY d o nw z a a | 

te SN tNT) 9000 %O! x ~ J3v39NS NIPLNIOS 


eran testesestsweraraner a ec ANE ANP 


DTH RT CAGE Ee 


SECTION VI 
PROGRAM LISTING 


This Section contains the complete listing of the IBM 7094 version of 
the computer program. The CSC 6500 version is identical except for the 
necessary changes to the overlay structure and the format of multiple 
entry points to subroutines. 


$IBFIC MAIN 


c PAT 19 
c wAT 20 
Cc SHEROEHONETEEREEREEHENEEESHSERT EEE SEE TCOOO OSHS OT SENS SEES ESTHEUETIEV EMA! BY) 
c PAIL 40 
Cc PRCGRAM TITLE--THREE-DIMENSIONAL ANALYSIS CF SLPERSCNIC NOZZLE FLOW KMAE 50 
Cc PAT 60 
c PORSSSESO HS HEHE SHES HSESHSHE KEKE CERES SESS SSS SSE SVUSES HSESHESHSSES SSeS eVAl 70 
c THIS PRUGRAM WAS PRUDUCED AT THE PURDUE UNIVERSITY JET PROM ULSIEN MAL 40 
Cc CENTER AS A PART ©? THE REQUIREMENTS OF AF CONTRACT NUMBER F33615= KAI 90 
C 67-C-1068. THE CONTRACT WAS SPONSORED BY THE AERO PROPULSION KAT 160 
Cc LAGCRATORY WRIGHT PATTERSON AFB, ORTO. THE PRCGRAM WAS WRITTEN BY PAT 110 
c VeK, RANSOM AND PPINCTPAL INVESTIGATORS FOR PURDUE UNIVERSITY WERE HAT 120 
Cc PRCFESSORS H. NOYLE THOMPSON AND JOF 9. KOFFMAN. MAL 130 
C SEESCE SHAT ENE ESEE SESE HES SHEKCEHER EERE STREETS E EEE See EEE HECHESOEEIONSMAL 140 
Cc MAL 150 
Cc OVERLAY STRUCTURE FOR 184 7094 PAT Loe 
c PAL 170 
c wAT 180 
Cc MAIN PAT 190 
Cc BLOCK DATA vwAL 200 
Cc THRUST wAl 210 
c ERRORS wAl 220 
c AROSUB MAL 239 
Cc WALSUB WAT 240 
c DETER PAL 259 
Cc TTER WAL 7ol 
Cc NSOLY MALT 210 
t REFLCT MAL 24 
c REFKY MAL 290 
Cc WAL 300 
C & A MAE 3Ie 
c PAL $20 
Cc SPLENE BRAIN 40 
c MACHP INTERP i) 
c SOURCE SLAES , 
Cc INVALS XRGLTR 1 w) 
c TySuB MAY 370 
C wAL 340 
c 8 8 8 8 c c Cc WAL 390 
¢ WAT GOU 
c REAGIN WALSB2 IVSURF PRNIVS BCUNOR INTER PRaNCU” MAL G10 
c TESS INTXRG BPTSUB PPTSUB wALT 420 
S “FPO LABAL BCO: PT COFPAT MAT 430 
C CPMATE PAL 449 
Cc CRQUT VAT 450 
€ AROS B2 FAL 460 
4 PAL 470 
G SRVSEK SESH ET ICAE SHES SSE SHH TAT HET KSEE SE SSERT ES HEES OA SESOSCS SE SresseseMr\N! AHO 
c PAIL 490 
Cc VAT 500 

COMMON /CNTRL/ PRINTIsFRINT2Z,ERRORGIVSTYPeICLASS eNO ONT oe TE edSeb ell eMAl S10 

UNSTART ,DELX ¢ ODEL Xe KK Xi 2) XMAXYNO FAL 520 

CGYMON /CCNST/ PI, DRAD, BYU,G,0TU0G FAi 530 


10 tal WAT 540 


READIN 
WALSB2 
AROS62 
TNVaL2 
IVSURF 


THRUST 


LABAL 
TATXRG 
PRNIVS 
BRAIN 


RR a Rp Mn a EUR RO A NR a A SL AE IpUNUUUTA AUD Wy SUT Tete eat EE MHI tn nee, ctelenen ene a aaa a ee aN 
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FA en 


SIBFIC CNSTNT 


@LOCK CATA BKO 
COPHON /XRGLT/ REE 2219, 19) ¢OXOL (29199145) pEXCNTR pDEL XN» PPM RAN: SAFBKO 
ry BKB 
COMMON /CCNST/ P1,ORAD, 8FULG,8TUGG BKD 
COFHON /ARGL/ GAPHA,RGAS, GAR} pGAM2 yGAM3, GANS »GAM5»PTAB( 30) »ACO14, 38KD 
10} -ROCO( 4730), TCOL4s 30) eQSCOL 4, 30) sNFOEsNTHERR, LITT pPSOURC BKO 
COMMON /ARG2/ ATABI3052),ROTABL 309 2) 5 7 TAB(3052) cQSTABIA0,2) »HFAB{3BKO 
10) BKD 
COMMON /CNTRL/ PRINTISPRINT2Z,ERROR A SVSTYP s ICLASS NP ONT y TE ep Sdebolb »BKD 
UNSTART ,DELXsODEL Xs KK oX{ 2), XHAX,NO BKD 


COFMON /I1VS/ XSORCLYSORCeZSOAC  XIYSsYCIVS ZCI VS» MCI VS pPHICIV, THECIBKD 
LVePTICIVSeHCIVS eR IVS  MIVSe THETIVePSIIVePTEVSe HIVS pXPSORC pYPSORC »ZPSAKO 
2GRC,ALPSRC»BETSRC BKO 

COMMON /PLANES/ NPOS,NK LeNyYL NZL yNX2eNYV2ehZ2 BKO 

COMMOM /WALSB/ YAFIS,ZAXIS eXT(4) eRT(4) REOO4) e THETAT (46), XE (4) »RE(4IBKO 
Ly THETAEL4S a NSYMMYSXYV 114 ep EXPYLI4) 2 X¥204) pEXPY2(4) DEDXY2(4) ,EXPY3(BKOD 
24) 9XZ104) sEXPZE04)  XZE0 44, EXPZ214) pDEOXZ 204) y EXPZ3( 4) oXV¥314) XZ3148KD 
3} BKO 

COPMON /COGFL/ XX14)beRR14) AKC 4D OXXTOSD VT (4) pANCA) pBNIG) CN (4) ,ONBKOD 
LOG) SENE4) pAAYI4) pBAYE4) sCAY(4) pABY(4) pBBYI4) -COVE4S) sAAZ(4) ,BAZ14),BKD 


2CAL(4) 5ABZ(4) ,BB214),CB 214) ,AYTESTI4) pAZTEST (4), BYTEST(S) ,BZTEST (48KD 

3) ,SYMMY(4) 8KO 
COMMON /THRUT/ AREA, ARE AT, FAASS »XTHRI, YTHRE pZTHRE pXTHRe VIHR »ZTHR,XOKO 
L#CHT, YMOMT ,2MOMT »PAMBSF MASSE + RMASS 8KD 
CIMENSTON REVS(30), MIVSi30)— THETIV(30)) PTIVS(30,2)) HIVS(30,2) »8K0 

L PStIvi30) 8KO 

REAL MCIVS,NXLgNYLINZ1,NX2gNY2—NZ2 pMTAB BKD 
INTEGER PRINTL»PRINT2 BKO 

c BKO 
C LOAC DEFAULT VALUES FOR INPUT PARAMETERS AND PROGRAM CONSTANTS BKO 
C 8KO 
CATA PI, ORADs BTU0G1G/3. 1415926 06017453292 9250360539932.1739/ 8KD 


CATA PRINTLSPRINT2,ERRIRGIVSTYP pNPOS/091,060CO1 0 20/ pGARMA + RGAS/O.8KD 
1041.0/ eXSORC pYSORC 6ZSORC,XIVS, YCIVS sZC IVS MCIVS,PHICIV, THECI VePICIEKO 


2VS pHCIVS/0.0 40601020 200 Op e020. 010007 G.020.0 10.00 Os eNXE NY NZE/AKO 
30.010400-i,0/+XMAX/0.0/ BKO 
CATA YAXUS¢ ZAXIS/0.000. O/ BKO 
CATA (XTCT) T=1, 41/480. 0/ BKO 3 
CATA CRECT DH, Pehy 43/481. 0/ BKD 
CATA (RCE): L229 40/481, 0/ BKD 
CATA (THETATOI)s $215 41/490.0/ BKO 
CATA EXELL), t21, 42/440, 0/ BKD 
CATA (RECT), 121, 43/480. 0/ exo 
CATA UTHETAE TE), $22,497 440.0/ BKO 
CATA (SYPMY( EL) T3104 yNSYMMY/ 49200 1/ BKO 
CATA UX¥LEE, F21,4)/490 07 BKD 
CARS Ce cei de beh 4)/ 492 07 8KO 
CATA CXV3CT1 e £31 241/4910.07 8KD 
CATA UXZE00) Leb 41/449 20/ BKO 
CATA CX220T) beds 41/ 441 07 BKN 
CAPA UXZ3CUd, S21, S/S GF OOS 8K 
CATA (CCEOXY200), 131, 4)74590,0/ 8x0 
CATA (GEOXZ2Z05)s fhe 417440207 8KD 
CATA CEXPYT(E),1=1,4)/442.0/ 8KD 


CATA (EXPY201)51"1,63/682,0/ BRS §56 
CATA CEXPY301),1=164)/482,07 EXD 566 
CATA (EXPZ1073,1=1,41/682,0/ BKO 576 
OATA fEXPZ201),1=144)/682,0/ 8xf $89 
DATA CEXPZ3L1)s 1% 154)/6%2.0/ BKO $990 
CATA {*TAB(1),121,301/3020.07 BKO 400 
CATA SAFTY/0.646/ BRO of0 
OATS PAKB/O.O/ BKD 020 
CATA NIHERM/0/ BKG 630 
CATA NSTART/~1/ BKO 640 
END BKO 650- 


a 
a) 


ww 


~ oF SS i Sete oh oo LO OY 


1! 


feb sas abe ban 


ve ag 6 ered pie ge 


SEBFTC THRGST 


SUBROUTINE THRUST THR 10 

c THR 20 
c SSSSCSESERO SOS STTTSE SHELS SHE SERSLSFE STR FAPSRSES SESE OAPGCSSFE SS ESSH SSS THR 30 
Cc THR 40 
€ CALCULATE CROSS SECTIONAL AREA, wELGHKT FLOk, THRUST COMPONENTS, THR 50 
C ANC MOHENTS. THE CEPENCENT VARIABLES ARE CONVERTED TO ENGINEERING THR 60 
C UNITS FOR PRINTING. THR 70 
Cc THR 80 
C FEARS COTES HESS EL SXSSA SHHSEDLALSSSKESOOSOSHTS ISOS LH BEE SE SLE THR 30 
Cc THR 100 
COPMON /SOLUTN/ YO25 19) 1999202019, 19) UC 2s EFe LI eVESsLF LI) oHEALLITHR L4G 

Ls lO PLA kI, LID, PT ULL DD HEELS: LF) eKLASS(19,19) THR 120 
COPMON /CNTRL/ PRINT Ls PRINT2- ERRORS SYST YS e ICLASS SNP ONT iL ep JJebLocth pTHR 136 
INSTATt ,DELX,ODEL Xe KK X12) -XMAX,NO THR 140 
COPrUN /THRUT/ AREA, AREAT, FMASS  XTHRE, VTHR Ee ZTHRIGXTHReYTHReZTHRyXTHR 150 

L¥OMT , YPORT »ZMOMT ,PAMBeF RASS I 2 QMASS THR 160 
COrMON /CCNST/ P1,O0RAD, B7U,G6,8TUCG THR 170 

CETA NSKIP/L/ THR 180 

is THR 190 
c SET INITIAL VALUES TO ZERO THR 200 
Cc Trnw 210 
AREAT#O.O THR 220 
XTHK=0.0 THR 230 
YTHR=0.0 THR 240 
ZTHRz0.0 THR 250 
FRASS29.0 THR 260 
RACMT=0.0 THR 270 
YHONT=0.0 THR 280 
ZHCHT=0.0 THR 290 

NJSdel THR 300 

c THR 310 
c ESTABL (Sh RANGES FOR INTERGRATION DO LOOPS THR 320 
c TRR 330 
GO TD (10510529, 30), IOLASS THR 340 

10 NJSNP THR 350 
ALaNP THR 360 

GO TO 40 THR 370 

Cc THR 380 
20 KL ANT THR 390 
NJENP The 400 

60 TO 40 THR 410 

c THR 420 
30 ALSNT THR 430 
NS2NT THR 449 

40 CQ 50 Tries THR 456 
EF CECLASS.EQ.L) NJLST THR 466 

CO 50 JaNslyaJ THR 470 

Cc THR 480 
C CALCULATE Ay RO, SSs AND T AT EACH POINT TR 490 
c THs 500 
CALL AROSH 3 (PULL el, DdeP TE bed) RET eS) As RO 2 QSeT) THR 510 

ulb ely d) shu THR 320 

Cc THR 530 
Cc CCAVERT UNITS ANDO STORE IN UNUSED SICE OF ARRAYS THR 54) 


OaAN Ananda 


Oa 


YeboTsJPFPELL ATS FL 44,0 

VIL,T, 5) sR00G 

Zitelss)=SORTIOS) 

Webel, JdsZite ls sisca 
Pilels Jie 


CALCULATE NUMBFR OF ONE-ELGTH SECTORS OF SCLUTICN SURFACE 


WSECT 2208 {1CLASS-1) 
HPlsnPp-} 


INTEGRATICH LOOPS 
ToTAL SECTORS 


CO 230 Kel,NSECT 
EACH SECTOR IS INTEGRATED BY SUMMING TRIANGLLA? REGICNS 


CO 230 Lliel, HPL 

NSw2? 
CO 230 Jtlet li Np) 

LF LISLE QLNPL) NSwe? 
CO 230 NTR NSH 


GENERATE INCICIES OF EACH TRIANGULAR ELEMENT OF INTEGI4L 


OO 220 KxKle1,3 
6& TC (66570,80), KK} 
lash 
JaeJJLENTR~] 
c5 T£ 9¢ 


TefLienyR~1} 
Jes ilek 
GO TU 90 


fatilel 

JEJJLENTR 

GO TC £100, 1102120, 1365140,150,160,170), K 
[is] 

JleJ 

60 TO 180 


[ley 
Jiej 
GQ TG 180 


TlenT¢t-J 
sis} 


co TO ise 


Ll=NTel-] 
JleJ 
GO TH 180 


THR 
THR 
TP 
Tete 
Ire 
Tree 
Fre 
THR 
"RR 
TreQ 
THR 
THR 
THR 
Tr® 
THR 
TR 
TRR 
Trek 
THR 
THR 
THR 
TrR 
Tuk 


Tnk 


Trek 7 


TKR 
THR 
THR 
Tek 
THR 
THR 
THR 
THR 
THR 
THR 
THR 
TH 
THR 
THR 
Thin 
THR 
THR 
THR 
THR 
THR 


BID 
900 
9195 
929 
939 
949 
953 
96) 
919 
983 
999 


Trek 1009 
TRRICID 
THR1O23 
THRIG30 
THR L645 
THRiO50 
THRIO60 
THRIGTO 
THR 1080 
THR 1090 
THRLILOD 


ares WO ead 


140 LLeMT+i-1 THA LL1O 
JIBHT 41-5 THRIL20 
6S TO 180 THRL}30 

c THRI1L40 

150 TLanTet~J THR1L50 
JlshT¢ ict THRILEO 
GO TO 189 THRILTO 

is THALLBO 

L640 tleJ THR1L190 
JlsnTet-1 THR1200 
GO TO 180 THRIZ10 

c THR1220 

170 {tel THR1230 
JLENTeI-J THR1240 

189 GG FO (190,200,210), KXt THR1250 

190 Riedl THR 1260 
HLeJt THAL270 
GO TO 220 THR1Z8G 

c THR1290 

290 Rael THR E300 
R2=51 THRI3ZLO 
GO TG 220 THR1320 

c THR1330 

210 M3ett THRI380 
N32 Jt THRI35O0 

22% CON? {NUE THRL360 

c THR .370 

c CALCULATE ARFA OF TRIARGULA? ELEMENT TRRL380 

c THRL39O 


AREASOSSABSLY (LE AL MLISUZILL MZ NZI JILL MS oN DDOVILE M2 gN2) #THRIGOO 
i CZELL ABsNBI-ZULL pML oMLIDOVCLL MSeN3IOCLELL ML eNEE~ZULL GM2y9N2) ITHRIGIC 


2 } Tir 1420 

ARE DJMAREAS3.9/144.0 THR1S39 

Cc THRI440 
Cc CALCULATE CENTSOIG THR1S56 
Cc THRIGLO 
YBARKCY(LL ME NED OVO LL oe M29N2 3 6V (LE M39N3)273.0 THRLS70 
ZBARSLLULL ML eM LD OZEL Le M22N2 OZ ELL M9 ON3D5/320 THRL4B0 

c THRLS9IO 
Cc CALCULATE MASS FLUXES THRISOO 
€ THRI51L9 
ROULSULLeMIsNEDSUTLL »MLNL?} THRIS2C 

ROVU2syU lL eM2sNOPOUTLE eM2.42} THR1530 

ROUSOUIL PI MF) CUILL »*32N3) THRI5S40 

c THR1550 
Cc SUM RASS FLOW AND AREA THR1530 
Cc THRIS70 
FR LoS SFEMASS¢(RGULERIUZ*ROUR) FAREAI THRIS8O 
AREAT#AREATSOAREA TMHR1L590 

Cc THR1600 
c CALCULATE THRUST COMPONENTS THRL6IO 
Cc THR1620 
XTHRI@-AREASE(ROULSUILL BL eNLI#ROUZFUILEL eM 2:N2}4ROUSSUILE M3 NITHT1LE30 

1 PI~CPULL e MINT PELL oM2eNZ)+P (LL HI INS) JPAREAZ+AREASPAMB THR1L64SO 


VT Hk Ps AREAZS (QOULOY (LL ALN LIGROUZOV ILL 42 9N2)¢ROUZOVILL M3 eh ITHRI650 
1 ») THR1I660 


TTR Ie AREA3@ (ROU LOWELL M1, NE}¢ROUZ SWELL, #252) #ROUSOWILL «#3 NITHRIBTO 


t MH THR i620 

Cc THRIL69O 
Cc SUM MOMENTS TreR1700 
C IHAIT1O 
NRO? FoXMOMT +2 THR OYBAR-YTHAI OZR AR THRI7T20 
YMOMT=YHOMT ¢X THRI O28 AR-~ZTHAI OXI LE) THRI730 
ZMOMTSZHOAT eY THRIOXULLI-XTHRISYBAR THRL7T46G 

c THRLTSO 
c Sum THRUSTS THRI740 
C THRLT7G 
XTHREXTHAEXTHRI THEIT8o 
YTHR#YTHROYTHRI THALT?O 

230 ZTHREZTHREZT HRI THRIBOO 
€ THALBIO 
C CCAVERT MASS FLOW TO WEIGHT FLOw TRRISZO 
c TH2i630 
FRASS@FMASS 0G THRIBSO 

GO TO 260,250). NSKIP THR L895 

240 PASS sFeaSS THaLses 
NSKIPu2 THR LITO 

60 TO Zee THRISSO 

c THRESIO 
C MORMALIZE THE THRUST COMPONENTS By TRE MASS FLCN RATE RATIO T4rRivdd 
c THRLDIO 
250 RMASSOFMASST/EMASS FRRIG26 
RTHREXTHRERMASS THREIG30 
YTHRSYTHRERMASS THRI949 
ZEHR*ZTHRERMASS THR IS50 

260 RETURN TrR 1905 
ExG THALGTO~ 


on 3 
weed 
a) 


4 Siar a 
SEGFIC ERRORS 
SUBROUTINE ERRGRS {MISTARS Ene 
C ERR 
c STFSESTSCSES ESS SESSASAVOTSSSS ECHESSESNS SETHESSS VES COSTE SS RSBSSeesTsssCe ERe 
¢ ERR 
Cc DIAGNOSTIC ERRUR RESSAGES FOR SOuE OF THE ANTICIPATED BODES CF ERR 
€ FATLURE Gr THE PROGRAM ERR 
g ERR 
¢ SPSS SSASISSSTSSSTARSESESE FSS SSSSSS ES SSS SF STSESCSSE SSE TIES PSLH FSH SESE ERR 
Cc ERR 
GO TO £100205 305 404 56255e 702 80e I9Gs FAD LEC E20 E30, 140,150,155), MIERR 
LSTA ERR 
Cc ERR 
iG RRITE {6.1703 ERR 
sree ERR 
c ERR 
20 BRITE f0,£280} ERR 
$tce ERR 
c ERR 
30 BRITE £6,190) Ear 
S¥cP taR 
is ERK 
40 WRITE (6,280) ERR 
SToP ca 
c ERR 
$0 WRITE (6,210) ERR 
STOP ERR 
c ER 
60 WRITE (16,2203 Ewer 
RETORN Fw? 
Cc ES 
70 WRETE to, 230} Ena 
RETUAN Eu 
im £4 
80 WRITE £64249) EAR 
$tcP ERA 
C ene 
39 BRITE (6,250) F.2 
stce ro2 
c cane 
106 wREFE (6,2693 Fae 
sree Fae 
c tre 
1:0 WRITE (6,270: ERR 
sive ERR 
c £42 
126 WRITE (06,2803 £22 
Star ERR 
in ERR 
139 WRITE 16,290} ERR 
sTce ERR 
C ERR 
149 WRETE (6,390) ERR 
$rce eRe 
Cc ERR 


Be ye hd tne 
ViDag 


$04 


Nn 
ro 


ov 


Qts 


Ww x 


re | 


230 


240 


250 


250 


270 


260 


290 


300 
310 


320 


WRETE (6,310) ERA 550 
$ToP ERR 560 
ERR $70 
WRITE (6,325) ERR 580 
stop ERR 590 
ERR 600 
ERR 610 


FORMAT (1HOs10X, LLGHSesoeEKROR STGP 1 = CALLEN FORM SUBROUTINE REAERR 620 
LDIN. INCORRECT SPECIFICATION OF INITIAL VALUE SURFACE TYPE, THEsIERR 630 
2HOe LOX SSHPARAHETER SYSTYP CAN ONLY HAVE VALLES 16263 ORK 4.99968) ERR 640 

FORMAT (1HO, 10Xe LESHSESSSERROR SyOP 2 ~ CALLEC FROM SUBROUTINE REAERR 650 
LOfN. INCORRECT SPECIFICATION OF BOUNDARY TYPE, THE PARAHETER NSYPERR 6600 
2HY/1HO,10Xe35HCAN ONLY HAVE VALUES Le2 OR 3,90668) ERR 670 

FORHAT (1H0, LOX, LI2ZHSS@SCERRGR STOP 3 - CALLED FROM SUBACUTIAE PMAEBR 680 
Ch. CONVERGENCE FAELURE IN ATTERPTING TO SOLVE FOR PRESSURE, %9e¢¢ERR 690 


2) ERR 700 
FORMAT (2HO, 10X, 73HSSSSSERROR STOP 4 - CALLED FROM BRAIN, AC STARERR 710 
AT pGINT FOUND ON TAPESO soe) ERR 720 


FORMAT (LHO,1LOXs ALZHESESSERROR STOP 5 - CALLED FORM SUBROUTINE SOUERR 730 
RCE. FAILEO TO CONVERGE IN SO ITERATIONS, USUAL TROUBLE I$ THAT AERK 740 
2/1H0, LOX, 55HSQLUTION FOR A SUBSONIC MACH NUMBEK IS ATTEMPTED. 9¢¢eERR 750 
34} ERR 765 

FORKAT (its iGke L1SHOSESSERROR WARNING 6 - CALLED FROM SUBROUTINE ERR 770 
LINVALS. INITIAL DATA £S EXTRAPOLATED USING LAST SPLINE, ERRCRS PAERR 780 
2V/1HOe 10Xs LZHRESULT , 04808) ERR 790 

FORMAT (3H0, 10Xe LIIHSOSSSERROR WARNING 7 - CALLED FROM SUBROUTESNE ERA 800 
LEINVALS. LAST POINT OF TABULAR AXISYMMETRIC IMETIAL DATA OOES NOT/ERR B10 
ee TO THE NOZZLE BOUNDARY, ERRORS MAY OCCUR, *S9ERR 620 

os ERR 630 

FORHAT (LHOs 10%, LI4HOSSSSCRROR STOP & - CALLED FROM SUBAGUTENE INVERR 840 
LALS OR IVSUB. A MACH NUABER LESS THAN OR ECLAL TO 1.0 WAS SPECIFIERR 850 
ZED/1HO»10X.48HOR CALCULATED ON THE INITIAL VALUE SURFACE, 00808) ERR 660 

FORMAT (1HO,10X— LL2HOseSSERROR STOP 9 - CALLED FCRM SUSAOUTIAE IAVERR 870 
LALS. A TABULAR INPUT INETIAL VALUE SURFACE HAVING NON ZERO VALUESERR BUC 
2/10, LOXe68HOF PSE WAS SPECIFIED WITH A GEOMETRY HAVENG PLANES OF EXR 890 


SSVFMETRY. 99089) ERR 900 
FORMAT (3HOe 10X,G1HS99sSERROR STOP 10 - CALLED FROM SUBROUTIAE KEAERR 910 
ICIN. XMAX WAS NOT SPEC SS1ED, osese) ERR 920 


FORMAT (1HOs 10X- LESHSSOSSERROR STOP LI-CALLED FROM SUBROUTINE IPTSERR 936 
1UB. ENTERSOR POINT SOLUTION FAILED 76 CONVERGE IN 20 ITERATICNS.S#ERR 940 
Pose) ERR 956 

FOAMAT (1HOs LOX LISH9S*#SSERROR STOP L2—-CALLED FROM SUBROUTINE BPYSERR 960 
1UB. BOUNDARY POENT SOLUTION FAILED TO CONVERGE IN 20 ITERATIGNS.S*ERR 970 
2460) ERR 980 

FORMAT (1HO» ICX, LOKHSSeS¢ERROR STOP 13 ~ CALLED FROM AROSUB. ATTEKERR 990 
IpTED TO CALCULATE YHERMOOYNAMIC DATA AT A PRESSURE OUTSIDE THE/LHOERR1I0OCO 


2eLSNeR2HLINITS OF THE FASULAR INPUT DATA) ERR1IO1L0 
FORBAT (LHOs 10X~ LOSHOSCSSERROR STOP 14 - CALLED FRON AROSBC, MACHEARI020 
& RURBERS GF TABULAR DATA DO NOT MONOTONICALLY #NLREASESSE CS} ERR1030 


FORHAT (1HOs10Xs LISHOSOSSERRUR STOP 15 - CALLED FROM BRAIN. THE PERR1040 
BARAHETERS READ FROM TAPE DO NOY AGREE wETH DATA INPUT FROM CAROS*SERRIC5SO 
zee} ERR1060 

FORMAT (1HGs10X, Ll2HessscERROR STOP 16 ~ CALLED FROM ITER. ITERATIERR1070 
AVE SOLUTION FOR A POINT ON THE BOUNDARY EXCEEDED 25 ETERATIONS**49ERR 1080 
2) ERRIO90 

END ERRELOO- 


Siaeeca th Mrs HES aay Uday RIE 


apres 


oa - = ir aR EE PETE DE: ECTS ET RS EE, 


SIOFTC AgosuUs 
SUBROUTINE ARUSUB (9 PT ote AgR0,Q5,0ADP ,DADPT sDADHsORODP pHRODPTsOROARO 10 


emg as lt i i aS tle TR A Ue taka pa, ats 


104) Arg 20 
c ARO 30 
Cc 0905886090999 HSS SE38 566 9585685590856 00909599 658099 S005 086469 ARO 40 
Cc , ARG 50 
Cc FHE PROPERTIES A, ®O AND Q ARE CALCULATED AS A FURCTION OF P, PT ANDARO 60 
Cc EITHER A RONHOHENTROPIC FLOW OF A CALORICALLY ARD THERMALLY PERFECT ARO 70 
Cc GAS OR A HOMENTROPIC FLO* CF A GAS §% CHEMICAL EQUILISRIUN IS ARO 80 
Cc ASSUKED. IF GARMA 15 SPECIFIED THEN THE FORMER, If KOT THEM THE ARG 90 
G LATTER IF A TAGLE OF P, ROse AND A VERSUS HACH AC- 18 PROVIDED. ARO as 
c ARO LL 
Cc UNITS GF P AND PY ARE (B/FTS62 ARO 120 
¢c UNITS OF H ARE FI-LB/SLUG ARO 130 
Cc UNITS GF A ARE FY/SEC ARO 140 
c UNITS OF RO ARE SLUGS/FI9S3 ARO 150 
c ARO 160 
c B2OSESIIE SES OESS CESS SCEE SESSESESSIS SOS SESESESSEDCOOS EOESSESEESS ARO 170 
¢ ARO 180 
REAL MIAB ARO 190 
COPHOM /AROL/ GAHKA, RGAS¢ GAM’ » GAM2 »GAM3,GAHS »GAHS »PTAB( 30) -AC06423AR0 200 
10} ¢ROCO14530 2¢TCOl 4, 30) » QSCOl 4, 30) pNFOCESNTHERA, I pPSOURC ARO 210 
COPMON /CCNST/ P1,ORAD. BTU2E:8TUDG ARO 220 ‘ 
AENTSL ARO 230 ; 
60 TO 30 BRO 240 
Cc ARO 250 
c CALCULATE Ay RO AND QS ONLY ARO 260 
c ARO 270 
ENTRY AROSBLIP SPT pH, AgXt0,Q5) ARG 280 
c ARO 2990 
RENTS2 ARO 306 
GO 70 20 &RO 310 
Cc ARO 326 
c CALCULATE Ay AO, OS AND T {DADP) ONLY ARO 330 
c ARO 340 
ENTRY ARGSO3BIPeP Tey Agt0eGS,PADP) ARO 350 
€ ARO 360 
NENT*3 ARO 370 
GO TO 16 ARO *60 
4 ARN 399 
C CONSTANT GAMMA,NFOE =3 ,0R EQUILEBREUM, NFOE = 2 ARO 400 
c ARN 410 
to GO TO (20¢603¢ NFOE ARO 420 
20 6$32.09H9(1.0—-$7 /PT 3 S8G AML) ARG 430 
ASQSGAM3CHS( P/PT ISSGAML ARO 446 
RO#GAMPATPE/ ASQ ARO 450 
A=SQR7{ASQ) ARO 460 
GU TO (36240,50)_ KENT ARO 470 
390 CADPSGAKIFA/(2.08P) ARO 480 
DADPT=<-DADPSP/PT ARO 490 
DADHSA/( 2,0 4H) ARO 500 
ORODP= 1.07450 Aro 510 
CRODPT sGAML CRO/PT ARO 520 
ORODHs-RO/H ARO 530 
40 RETURN ARO 540 
3 
3 
2 
z 
3 
122 i 


50 BAOPsP/(ROOGERGAS) ARO 550 


RETURN ARG $60 
c ARO 570 
C TASLE SEARCH ARD 586 
Cc ARO 590 
60 IF (P.GEsPTABIII$ GO YO 70 ARO 600 
fofes ARO 610 
c APO 620 
C RAN OFF TABLE AT Low P EXOD ARG 630 
c ARO 640 
IF (S.CT NTHERM) CALL ERRORS (13 ARO 656 
GO T0 66 . AKO 560 
Cc ARO 670 
79 IF (PoLE.PFASLI-1)) GO TO 80 aRO 680 
isi~] ARO 690 
c ARO 700 : 
C AK OF TABLE AT HIGH P END ABO 710 : 
c SRG 720 i 
ff $5.€Geii CALL ERRORS (13) SRO 730 ; 
GO YO 70 ARO 740 : 
4 ARO 750 ! 
80 DELPuP-PTABL I-12) ARO 760 ; 
Cc ARO 770 
C WULTIPLE ENTRY OPTIONS - EVALUATE DATA FROM CUSIC SPLINE ARO 789 
¢ ARO 790 
GO TO 190,100,110), NENT ARO 860 
90 AwACOE 1,1 99ACOl 25 3 S2DEL P2ACOl 3, LISDELPOCZ+ACO(4, LI SDELPSS3 ARO 816 


ROSROCOL 1915 SROCOL 2¢ SIEDELPCROC OIF, LI SDELPOS2SRCCOL4, IISDELP#93 «=ARD 820 
CS*QSCOL 2s 1) OOSCOl2, BISOELP+QSCOI3, LISDELPOOZCOSCOL4,IISDELPOS3 AND 836 


DADP@ ACO( 2, 1992, 08AC013, $ ODELP 43.CHACOL 4, J JODELPSS2 SRO U40 
CRODP2RNCOl 2 4314 2,.08R0C 01351 ISDELP +3. OORCCOL4 oS} SDELPSOS2 ARD 85 
DADPT#0.0 ARO 660 
CADHSO.0 ARO B70 
CuOOPT=0.0 ART &RO 
CRODH20.0 ARO £90 
RETURN ARO 900 
106 Aw ACO1191)¢ACOl2, 1 SSDEL P*ACDS 3, LISDELP 902440014, 1 SOELP S63 ARG 910 


ROFROCO( 1, 1) +ROCOL 2, LISDELPHROCOL3, LISDELPOSZoROCOl4SySISDELPSE3 ARO 920 
OS#QSCOl 1S) +QSCOl 2c BISDELPSOSCOISs LISDELPHSZOQSCOlarSISDELPOC3 ARO 930 
RETURN ARO 946 
220, ABACOL3 oT) FACOLZ eB ODEL P+ACOLl 3, I SDELP 90204001 4,1 S0ELPSe3 AKO 950 
ROSROCOL 2, 1) OROCOL 2p LICDELPOROCO(3, 1) *DELPSSZeROCOI4sI)SNELP SOS ARG 960 
CS2Q56.011,1) sQSCOl Zs LISOELPOQSCOI3  LISCELPSE2Z40SCOL4 FI*CELPSe3 §=6aRO 970 
DADPHTCOl1» E FTCOl 2, LIEDELP+TCO(3, § SDELPCOZ41C015, 1) SDELPee3 ARO $80 
RETURN ARG 990 
END AROHD00- 


SISFIC MALSUB 
SUBROUTINE WALSUB (X5¥»ZeXON,YDN,ZON) 


SCHECSESSERSESOOBE SSE ASE OSSSESSS SSE HESS SOEESSEOESHEK ESSE OSEOSESSE 


WALSUB AND 275 ASSOCIATED SUBRUUTSHES ARE USED TO DEFINE THE 
PHYSECAL BOUNDARY OF THE FLOW. OPTEONS INCLUOE AN AXISYMMETRIC 
BOUNDARY FORMED BY A CERCULAR ARC IN THE THROAT REGICN JOINED TANG- 
ENTIALLY TO A GENERAL PARABOLA FOR THE EXPANSION SECTION, SUPER~ 
ELLEPTICAL CONTOURS HAYING THO PLANES OF SYKHETRY AND SUPER~ELLi P- 
TSCAL CONTOURS HAYING NO PLANES OF SYMMETRY. THE SUBPROGRAR WALSB2 
MUST BE CALLED FIRST IN OROER TO INITIALIZE THE SUBROUTENES. 

THE AAGUKENTS PASSED INTO THE SUBROUTINE SRE THE COORDINATES CF A 
POINT AND THE DERECTSON COSINES GF A LINE THROUGH THE POINT. TIE 
SUSROUTINE THEN LOCATES THE NEAREST INTERSECTICN OF THE LINE yITH 


MRUTTEN BY So. KESSICK JUNE 1969 


OCFTOHSOF OOH SEST CEESHEE SCEESEES SESCEOESSSEEESSOESOSE OEEEASEO FOIE 
PASS PARAMETERS TO ITER 


COPHON /FUNKs PS oP2eP3sP 490290320 O9C055CC0 
PARAMETERS FROM HALSB2 ? 
COPHON /TRANS/ YOeZ0eHSYHAY 
PARAMETERS FROM NSOLY 
COPMON /NSLV/ XNORM, YNCRM, ZNORM 
THE PARAMETER X3 £5 NOT Pi 


OATA NQLgKLeKCT/0¢ 30 141599986 1/ 
60 To 10 


BOA AHOQG ASV AOAAAHAHAGOHOAHAHAAMOAMAN 


ENTAY POINT WALSBL $5 CALLED WHEN THE ARGUMENTS Xo¥»s AND 2 ARE 
KNCUN TO BE A SOLUTION AYD COMPONENTS OF THE NORMAL ARE OESIREU. 
THIS PROGRAM DOES NOT TAXE ADVANTAGE OF THIS FEATURE 


ENTRY WALSBLIXeYoZ eKO%, YON, ZON) 


oO OOHOan 


X0ne020 

YOP2¥-Y0 

Z0P22-20 

On SORT (YOPS424Z0PS42) 
YONsYOp/D 

ZoNeZOP/T 

YCOS© YON 

ZCCS$*Z0N 

¢o To 20 


10 CONTINUE 
c NORMALIZE THE DIRECTION 2ATIOS 


WAL 
WAL 
WAL 
HAL 
WAL 
WAL 
WAL 
WAL 
WAL 
WAL 
HAL 
WAL 
WAL 
WAL 


THE WALL. THE SUBPROGRANS USED BY WALSUB ARE DETERM, iTER AND NSOLVHAL 


WAL 
WAL 
WAL 
HAL 
WAL 
HAL 
WAL 
WAL 
RAL 
WAL 
WAL 
WAL 
WAL 
WAL 
WAL 
WAL 
WAL 
WAL 
WAL 
whi 
WAL 
HAL 
WAL 
WAL 
WAL 
WAL 
WAL 
WAL 
WAL 
WAL 
WAL 
HAL 
WAL 
WAL 
HAL 
HAC 
BAL 
WAL 
HAL 


10 

20 

39 

40 

50 

60 

70 

60 

20 
i100 
110 
120 
130 
140 
150 
160 
170 
180 
$90 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
340 
320 
330 
340 
350 
360 
370 
380 
390 
400 
510 
420 
430 
440 
&50 
460 
470 
4860 
490 
600 
540 
520 
530 
540 


adh s 


somes 


vane 


¢ WAL 550 


CaSQRT (YDNSS2¢5DNGO2) HAL 560 i 
YCOS#70N/9 WAL 579 ; 
2C0S2Z0N/0 WAL 580 7 
YOP2¥-YO WAL 590 : 
ZOP#2-20 HAL 600 i 
c WAL 610 : 
c {F KCI = 3 CCNTOUR [5S ATL SYMMETRIC Wst 620 ; 
c WAL 630 
20 GO TO (36¢50,1903, KCT MAL 640 
30 KCTs2 WAL 650 
GO TO (40,503, NSYHAY WAL 660 
€ HAL 670 
Cc CALLED ONLY CNCE F02 AN AXESSUHEETRIC NOZZLE WAL 680 
c 4&2 690 
40 CALL DETRMZ (YOPsZCP YON e ZDNs AY sBNY yg CNY gONY sENY cANZ oBNZgcNZ,ONZ,EWAL 700 i 
1NZ sAKY pAKZ @RCY @RCZ g XOV, XOZ AAV, BAY pCAY sABY 9 BBY eCBY,AAZs BAZ sCAZ,ABZHAL 710 : 
25 BZ, CBZ e AYTEST e ALZTESTs BYTES™ 18. TEST» NSYHODe STV gXTZyNIgXV¥2 9X22) 4 =9WAL 729 j 
HQ@1 WAL 730 : 
KCTs3 WAL 740 : 
GO #0 190 WAL 750 5 
c WAL 760 : 
50 CALL DETERM (YOP ,ZOP sYDNsZONSANY ct YYSCNY sONY sENY ANZ sBNZ¢CNZ,ONZ,EWAL 170 2 
ANZ gAKY pAKZ RCV RCZ XOVs XOZ AA» BAY 2 CAY pABY sBBY eC BY, AAZsBAlsCAlsABLWAL 780 
2¢BBZ op CBZ, AVTEST,s ALTEST, BYTEST eBZTE TeNSYMGDy XIV sXTZ gNQg X72 9X22) WAL 790 » 
ie c WAL 800 i 
a ¢ 3F NSYMQOD © 2 ALL QUADRANTS OF TIE “7ZLE ARE THE SAME, [.€., 2P0S WAL 810 : 
Gaon c WAL 820 
aoe GO TO 160,703, NSYHQOD WAL 830 
nee 60 IF (X,£Q.X1.AND.NQ.EQ.NQI} GO FO 200 WAL 840 : 
: Go TO 89 WAL 850 i 
€ WAL 860 i 
ds 710 IF {IX -EQXL. AND NQEC NSE? GO TO 180 WAL 870 z 
Cc WAL 880 j 
¢ TEST XK TO SEE $F ON CERCULAR ARC OR PARABOLIC bALL WAL 890 : 
c WAL 900 : 
80 IF (X.LE.xry) co TO 90 HAL 910 A 
c WAL 920 i 
c COPPUTE SUPER-ELLIPTICAL EXPONENTS WAL 930 H 
c BAL 940 ; 
BQs(XSANY*CNY) HAL 950 j 
CQa{ BNY#X30240DNY OXFERY) WAL 960 i 
G8 -BQ6 .5¢.58SQRT {6Q982-4.6C0} HAL 970 3 
DBOXs—(ONYS2 -FBNY SKE ANY 9B5/i 2o8SeANYSEXECHY) Ai 980 i 
Go TO 100 WAL 490 ; 
c WAL 14-00 i 
30 BeAKY—SORT(RCYS# 2-1 K-x07) 542) WALSOL0 : 
OSOXs—(X~-XOY 1/1(B-AKY } WAL 1020 i 
ico GG TO (200,110), NSYMGO WAL 1030 i 
$40 fF (X.LEoXTZ) GO TO 120 WAL 1040 H 
BGS{XeANZ+CNnZ} WAL 1050 ‘i 
CQe{BNZOXee24ONZ OX¢ENZ) WAL L060 H 
Ae-8Q9,54,58SQRF (60802-4.0C0) WALLO70 f 
CAO {ONL 62  OBNIZEXt ANZ CA) S12. ¢ACANZOXOCK2Z) WAL 1080 : 
8G fO 130 WALLGIO 


c WAL1LO0 


120 ABAKZ -SQRT(RCZ#62-(X~X0Z) ##2) WAL1110 
DAOXs—(3}-X0Z)/(A-AKZ) WAL1220 
130 CONTINUE #wAL1130 
IF (XeGEsxXY21 GO TO 140 WAL 1140 
EYSABYBBYSA +CBY Ox382 WALI150 
OE YDXs 2BY+2. SCBY ox WALI160 
NSOLY@8YTEST WALIL70 
GO YO 156 WALLL80 
C WAL1190 
140 EYsAAY+BAY#XeCay exe? HAL1200 
CEYOX= BAYO2..SCAY OX WALI1210 
NSOLYSAYTEST wALi220 
150 «IF (X.GE.XZ2) GO TO 160 WAL1230 
EZ=ABZ+BBLEXeCBL exe? Wwall240 
CEZOX= BBLE2. eCB2 OX WALI250 
NSOLZ#BZTEST WAL 1260 
GO Yo 170 WAL1270 
c wAL1280 
160 EZeAAL4BAZOX CAL Sxen2 WAL1290 
DEZOX #44242. 9CAL OX WAL 1300 
NSOLZ=AZSEST WAL1310 
c wAt1320 
C EVALUATE CONSTANTS USEC IN STER WAL 1330 
c WALL340 
170 Phe EZ-1. WAL 1350 
P2"EY-1. WAL1360 
bs P3=EL-2, WAL1370 
re PS=EY-2. WALL380 
: C* =Be8EY wAL1390 
Co#ASeEZ WAL1400 
T4 202403 WALIG10 
C52EL 44.2 WAL1G20 
ia CC-E 73 WAL 1430 
= 160 CONT. UE WALIG40 
: CALL  OLV (AB, 2OP, YO? pZONy YONG EZ EVs Zio VL gNSOLZ @NSOLY ¢DADX p DBDX pWAL 1450 
3 LOEZOX, OTYOX) WAL 1460 
NQL=NQ KALI470 
XLex WAL1480 
TeYL+YO WAL 1490 
1#21420 WAL1£00 
XONEXNGRM WALI510 
. YON®YNORM WALI520 
= 2O0N=ZNORM KAL15 30 
S RETURN WALI540 
es c MAL1550 
2 C SOLVE DIRECTLY WHEN CONTOUR IS AXISYMMETRIC WALI560 
e c WALI570 
2 190 fF {(X.NE.x1} GO TO 80 WAL 1580 
2 200 =- ROP# SORT ( YOP0e2¢20P 682) wAL1590 
= ¥#¥0¢ YOP/ROP 58 WAL1600 
= 2=20¢20P/ROP SB WAL 1610 
: CENOM®@SORT(OBDKee2¢1.) WAL 1620 
7 ¥DN©-DBDX/DENONM WAL 1630 
2 YON=YOP/R0P/ DENOM HALL6460 
Z0N=Z0P/R0P/ DENOM ¥AL1650 
NQLeNG HAL 1600 
XLex wALIO7O 
RETURN WAL 1680 

ENO HALIE690- 


126 


PU MA LH HG 


2ieetc OFFER 
SUBROUTINE DETERHM (Y¥,Xe YON, XON, ANI , BNI sCNI ONT SEN ec ANJsBNJCAJ,DNJDET 19 
LeEUSe AKI, AKT aRCI RCS XOLXOUsAAVIe BAY! sCAYI -ABVI SBR YI CBYIsAAZSsBADEYT 20 
aS eCAL Se ABZ5 BBL Se CBZ Se AVTE AZT SeSVTT pe BZISeNSYMQDSXTI XT SeNQsXYZ2NCDET 30 


z 
i 
2 
é 


32XZ2NQ) DET 40 : 
c DET 50 i 
Cc SESSESSESSESE HO SHESESESESE SESH SESESSEFES SEES SESEASHUASSESESUSESEESS ES DET 60 7 
c DEY 70 Z 
© ESTABLISHES THE QUADRANT THAT THE POINE 15 IN, ANID RETURNS THE DEY 80 : 
C VALUFS OF THE CONSTANTS IN THE WALL CONIGLER EQUATICNS per 90 ; 
c DET 100 : 
¢ PHESESOSSSSSSSSSSSSSSSST SOSSSESTSEST ESET ESESSESOSKSS SE CSCHESSEHAEESSOSHAEE DET 210 3 
c oer 120 : 
LOGICAL XSIGN,YS IGN DET 130 ; 
COVMON /SGN/ XSIGNsYSIGN OET 140 i 
CCVMON /HESOLES X¥2(4),X2214) DET 150 : 
CO¥MON /COOFI/S X064)oRC 14) sAK14)  XTL4) 0 ¥T14) g AN( 4) 98N(4)5CN(4) ,DNIDET 1450 ; 
143 9EN(4) 5 AAV(6), BAY (4) _ CAY(4),ABY(4) 085114) sCBY(4) pAAZ(4) BAZ (4) sCDET 110 i 
28214) 4 A827 143 5 BBZ (4) 9 CBZ (4) ,AVTEST(4) pAZTEST(4) sBYTEST (4) eBZTESTI4GIDET 180 : 
3eS Va) DEF 190 : 
CATA NQL/0/ PET 20¢ : 
t DEF 210 7 
C LOGIC TO DETERMINE THE QUADRANT DET 220 
C NOTE HERE THAT THE COORDENATE X AND Y HAVE SEEN USED FOR THE CCORD- DET 230 
E c INCTES X2 AND X3. OET 240 
Cc O£T 250 
h XSIGN#X.LT.O, DET 260 
: VSiGNeY.LT.0. DET 270 
1F (XSIGN) GO TO 10 DET 280 
GO 50 40 DET 296 
Cc DEY 300 
10 If (YS1GN) GO TO 20 OET 310 
GO TO 30 DET 320 
¢ DEY 330 
20 123 DET 340 
se4 DET 350 
a. NQ23 DET 360 
ae GO TO 60 DEF 370 
a c DET 350 
30 {=} DET 390 
J3*4 DET 400 
NQee DET 410 
GO TO 60 DET 420 
c DET 430 
40 {ff (YSIGN) GO TO $0 OET 440 
se} DET 450 
s«2 DET 460 
AO} DET 470 
GO Ta 60 DET 4650 
c DET 490 
50 {3 DET 500 
3s2 DET 510 
tQe2 CET 520 
60 CONTINUE DES 530 


WSVMQDeSVRMY (NG) DET 540 


rete Bist Aco somos we PMA ne MRO aM sc AEA MM al Saal NER Nal 


€ DET 550 
c RETURN ONLY THF CONSTANTS FOR ONE QUADRANT IF CONTOUR IS SYMMETRIC OET 560 
Cc BET 570 
GO 70 (80,70). NSYMQOD HET 680 
70 NSYMQD#2 DET 590 
KeABS(X) SET 600 
Y=ABS(¥) DET 610 
XDNSASS{(XON) OET 620 
YON#ABSiYDN) OET 630 
IF (HQ.EQ,HOI1) RETURN DET 640 
KV2NQANXYZ(NQ) DET 650 
¥Z2NQeXZ21NQ) DET 660 
ANJEAN(I) DET 670 
BNieBNt 1) DET 680 
CNhiaCnt!) DET 690 
CNL=ONIT) DET 700 = 
ENI=EN(S) DET 710 z 
ANJcAN( 3) DET 720 z 
QNJ=BN{ J) OET 730 3 
CNJBCNTS) DET 746 z 
CNJZON( J) DET 750 . 
“ MUTQexT(i) DEF 770 
. RF JEXT OS) OET 780 7 
AKI=AK(S) DET 790 z 
AK Je AK (J) DET #00 ‘ 
RCieRCI1) DET 810 £ 
RE JERC( I) DET 820 : 
XOL2X0(1) DET 630 * 
XO Jex0(J) DET 840 5 
ABYILEAAYI NO) GET 850 2 
BAYI=BAY(NC) DET 860 : 
a CAYizCAY{Ng) GET 870 S 
aa ABYIZAGY(NO} DET #80 
ek BBYI=<BBYINQ} DET B90 : 
CBYS=CovIne) DEF 900 
42 AAZ J@ AAZ(NQ) DET 910 
ae BAZJ2B8A2(8O) DET 920 
ih CAZJ=CAZ(NQ) DET 930 
ete ABZ JeABZING) DET 940 
eee 8BZJ=eBBZ(NC) DET 950 
ws Ca2J=CaZzine) DET 960 
ATTLRAVTEST (AQ) DET 970 
* AZTJEAZTEST(NQ) DET 980 
BYTEeBYTESTING) DET 990 
8ZTJHBZTESTING) DET1000 
&QL=NQ CET1010 
RETURN DET1020 
= c DET 1030 
ed c FAR NSYMMY © 1 THE NOZZLE {3 AXISYMMETRIC DET104¢0 
= Cc HET1050 
¥ ENTRY DETRMZ(¥ 4X eYDONeKON, ANI SONS -CHI,DNI CENT oANS BNI CNS, ONY SENS -ADET INGO 
i UKL AK SORCI,RE Ss XOL eNOS, AAVI A BAVI ,CAy1, ABV] gBHYI eCOHY1 pAAZS eBA2 Je CALZDETIOTO 
= Ze AB Se BBZSVZCBL I AVYT I AZT SBVTE BZ T Se NSVAOQD OKIE ge KTS eNQe XV2NQe XZ2NCDET 1040 
; 3) CET1090 
¢ DET1I1I00 


128 


HiRes alte edna es + sek vothnen cH amie RARE» crates 9 Pe eae 


fobnGte mB 


#Q=1 DETI110 


80 CONTI nt. DETLLI20 
1F (NQ.£0.NQ1) RETURN OETL130 
ANI=AN(NQ) DET1140 
BNleSKiNO! DETi150 
CANI=CHiNG) DET1160 
CNIA@DN(NQ) DETL1I70 
ENISEN(NQ) DETL:e¢ 
XTI=XTENQ) DET1290 
AKISAKING) DETI200 
RCTsRC (NQ) DET1210 
X90 F=XO(NQ) DET1220 
WSYMQD=1 OET1230 
NQieNO DET 1240 
RETURN DETL250 
END PET1269- 

129 


i 
i 


a ie 


’ : ¥ 
——a eee eS SS Oe 
SIBFIC ITER 2 
SUBROUTINE [TER (Ae eX0 e¥OeXDNe YON SEZs £% X12 Y]) Ife 3 
c TE 20 
C SEARS CREE FE SOREL SOOESESS CHOCEECE SEEOEESSSSCESRE SEES EO 8298465 64RFES Tc 30 
Cc Ite 40 e 
c ITER FINDS THE INTERSECTION OF THE LEIRE AND THE CONTOUR SURFACE vE 50 e 
c BY AN ITERATIVE SCHEME. {Te 60 : 
c 1T—€ 70 £ 
Cc 9008990665484 0888 F45ESS5 COSBS EOD 988 OLSEEEL CSS EISEESEE DHESSESSELRE Ite 60 
Cc ite 90 
COPHON SFUNX/ P19 P25 P3s 249020063 204 e05eCC7 ITE 100 = 
CATA ERROR/.00001/ ITé 110 - 
Cc ITE 120 
c NOTE THAT ERROR IS HERE INTERNAL TO THE SUBROUTINE AND NOT THE ITE 130 = 
¢c GENERAL ERROR OF THE MAIN PROGRAH ITE 140 
Cc ITE 150 
S#YON/ XON ITE 160 
c ITE 170 
c USE TANGENTS AS A FIRST ESTIMATE FOR THE SOt UTION ITE 180 
c {Tt 190 
c ITERATE ON EITHER x OR Y {TE 200 
c ITE 21¢ 
IF {S$.LT.B8/A) GO TO 30 ITE 229 
Cl=YO-S*x0 {TE 230 
CoaCelss ITE 240 
C7sC5tP} {TE 250 
C8=C64P2eS$ ITE 266 
c Tt 270 
c ITERATION CN X ITF 280 
aes Cc ITE 290 
-- Y221(C4-C2eX088EZ)/C3)¢*(1./EY) IT€ 300 
S2=-(C5*x0eeP)}/(CC#v224P2) ITF 310 
Xz (YO-124X0#(S2-S)3/(S2-S) tTeé 320 
CO 10 MK1.25 ITE 336 
YiLeSex+el ITE 340 
FXmC2#XOSET*C 387 O#€ Y-C& {Te 350 
DFXnC5*x*ePl+C6eyLlsere tTFE 360 
XNOWEX-FX/DFX ifé 376 
OLFFeaBs (XNO¥—-2X)/X {TE 380 
X=XNOW iTF 390 
{F (DIFF.LT.ERROR) GO TO 20 {TF 400 
10 CONTINUE ITE 410 
CALL ERRORS (16) ITF 420 
20 Xisx ITE 430 
Yiz$*x14Cl ITE 440 
Go TO 60 ITE 450 
c 1FE 460 
C ITERATION ON Y ITE 470 
Cc {Tt 480 
30 4 (( CA-C3CYOSSEY) /02)49(1.7E2) {TE 496 
Sls-(C50X4eeP}))7/ (CCeYOSeP2) IT— 500 
Xa (S19%4-S8XO)/0S1-S) ITE 510 
Y¥sYO*S*(X-X0)} ITE 520 
Clex0-v0/S {TE 530 


C5s€Z*C2/5 Ife 540 


40 
50 
60 


Cé=cC 

C#C5eP17/5 

CB*C6ep2 

DOC 40 M21,25 
XLsy/Sery 
FYSC2*XL @0EZ+C3ey 966 y-C 4 
OF Y=C5¢Xt oop] +Cosyaep2 
YNOW=Y-FY /DFY 
GIFF=ABS ( YNOK-Y)/Y 
Y=VNOW 
IF (OlFF.LT.ERROR) SO To 50 

CONT ENUE 

CALL ERRORS (16) 

Yisy 

Xi2¥1/S¢C1 

RETURN 

ENO 


13] 


{Te 
{Te 
{Th 
iTe 
tte 
ITE 
ITE 
Ite 
STE 
ITeé 
{Te 
ITE 
ITE 
ITE 
ITe 
ITE 
ITE 


550 
560 
570 
580 
590 
600 
619 
20 
630 
640 
650 
660 
670 
680 
650 
700 
710~ 


w nesaneneetaaemnene thine Whatton Waansionae 


seeemrhe aereanteamerdaninis tase spc item enadattmienieamleren’ canal 


S{BFTIC NSOLY 


SUBROUTINE NSOLV (Ap Beh OsVYOsXON» YDNGEX pEV eo XL e Vi gNSOLZ»NSOLY,DADKX,ONSO 10 
LB0N.GEXOX -DEYOX) NSO 20 
Cc NSO 30 
c SB OSSEEES ESS ESOS SSESZES SESOSE EE SHESESSESESEEEEETESESEHESESESESE KSO 40 
t NSO 50 
c USED TO SOLVE OERECTLY FOR THE INTERSECTION WITH THE CONTOUR WHEN NSO 60 
€ THE SUPER<ELLIPTICA, EXPONENTS ARE 2.0 AND TO COMPUTE THE NORMALS NSG 70 
C NSO 80 
Cc 89256559049 05400 85 68555 SHERESeSaeCeaesLoesessoeseeseseneesesesE NSO 90 
c NSO 10¢ 
LOGICAL XSIGNsYSIGN NSO 110 
COBRON /SGN/ XSIGHsYSIGN NSO 220 
CORHON /NSLV/ XNORMs YNORM, ZNORM NSO 130 : 
OATA DELL/.00000001/ NSO 140 
N21 NSO 150 
Tih. NSO 160 
task. NSO 170 
fF (XO4KEDELL} GO TO 180 NSO 160 
IF {YO OLE.DELL) GO TO 140 NSO 190 
{F (XON.CE.OELL) GO TO £70 NSO 200 
IF (YON.LE.DELL) GO 70 150 NSO 210 
GO TO (10520), NSOLZ NSO 220 H 
1d GO TO (190920), NSOLY NSO 230 i 
20 CALL ITER (ApBeXO,YOeXONS VONSEX EV X10 V1} NSO 246 
30 = CONTENUE NSO 250 | 
$F (XSIGN? GO TO 40 NSO 260 ‘ 
GO ¥O 50 NSO 279 ' 
c NSO 280 i 
9G Xbs-X1 NSO 290 
hanwA NSO 300 
DADX=~DADX NSO 310 i 
50 {F (YSIGN) GO To 60 NSO 320 
Go TO 70 NSO 330 | 
c NSO 340 | 
? 65 Yl=~¥i NSO 350 H 
82=~8 NSO 360 | 
©80X%=-050x NSO 370 i 
70 KLASXLSA WSO 380 . 
Yib=V1/8 NSO 390 | 
GG TO (80,90,100), NN NSO 400 i 
80 X2AeX1A NSO 410 i 
Y28=718 NSO 420 i 
GO TO 110 NSO 430 i 
c NSO 440 t 
90 X2As1. NSO 450 ; 
Tis0. NSO 466 i 
Y26e1. NSO 476 % 
GO TO 110 NSO 480 
c NSO 490 
100 Y2be1, NSO 500 
T2=0. NSO 510 
X2A=1. NSD $20 ; 
Cc NSO 530 ‘ 
c CALCULATE NORMALS TO SURFACE NSO 540 : 
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} 
i 
i 
i 
i 
q 
i 


dy 


fpr CERT 


omer 


ce era 
m= ntcentmeman maNe OA ene NACE 


c NSO 550 
1L0 CONTINUE NSO 560 
XNORM*T1SCXLASSEX) ©( (-EX/A) SDADX4ALOG(X2A) @DEXOX) +T29(YIBSSEYIe((-NSO 570 
LEY/B) S0BDK + ALOG( 26) #0E YOX) NSO 580 
ji YNORM=EYS(CYIB}S#(EY-1. 09/8 NSC ut 
ZNORM=FX#CAXLASSP(EX<1e 297A NSO 600 
c NSO 610 
C NORHALEZE OLRECTION RATIOS NSO 620 
Cc NSO 530 
D*SQRT(XNCRM#62¢ YNORMOY 2 ¢ZNORKE S27 NSO 840 
NNORM= XNORM/D NSO 650 
YNORM=YNORM/D NSU 660 ; 
ZNURM*= ZNURH/O NSC 670 
1f (XSIGN? GO TO 120 NSO 680 
GO TO 130 NSC 690 
Cc NSC £00 
120 As-A NSf 710 
DADX2-DADX NSU 720 } 
130 fF €YSIGN) GO TO 140 NSO 730 : 
GO TO 200 NSU 740 | 
c NSO 150 | 
140 e=-8 NSO 760 
DBOX=-080x NSO 7/0 | 
GO TO 200 NSC 7g0 
C NSO 790 
CG CASES FOR WHICH EITHER XON OR YDN ARE ZERO NSg 800 
€ NSO #10 
150 -¥L="O NSO 420 
XLSA8( 1.-(Y1/B)8SEY) 66( 16/EX) NSO 430 
GO TO 30 NSU 840 
ae NSO 850 
| 160 Y1=0. NSO 860 
XLsA NSC B10 
Na? NSO 680 
as GO TO 30 NSN 890 
- C NSO YOO 
oie 170 = XL=x0 NSO 910 
YR=B0(1.-(XL/A)S*EX) OOl BO /EY) NSO 920 
G9 TO 30 NSU 930 
C NSO 940 
420 © X20. NSO 950 
Y138 NSO 960 
N22 NSO 940 
GO TO 30 NSU 980 
Cc NSO 990 
© SOLVE DIRECTLY FOR POINTS WHEN EY=EZ=2 NSU1000 | 
Cc NS.110 10 
190 S$#YDN/XON NSOL020 } 
AG2 (AGS) 202¢B602 S010 30 H 
QG=(AS#2)#7. 9591 YO-X08S ) NSU1040 
CG=(A6%2) 4&6 (YO-S ®xXC) 082-3962) NSO1050 | 
XL=(-BG¢SQRT {8G6* 2-4 .84G9CG))/02.9AG) NSU1060 i 
ViRYO#S8{X1-X0) NSO1070 i 
GO TO 30 NSG1080 : 
c NSGi090 y 
200 =RETURN NSOLLOO F 
END NSOLLIO~ 
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7 cpt Nene enemin 


SISFYC REFLET 


OOOO aA aan 


a6 


20 


30 


40 


50 
69 


70 


SUGROQUTINE REFLCT GK} 


$ENSSSSE6SSESS ESS BOSS E96 $56 9ORG9SES6 GSES LEO RICO VETEHSEASHVSSESS 


CONTROLS LOGEC OF REFLECTING PGIHNTS AND PROPERTIES BETA RESPECT TO 
CANES OF SYRHETRY 


FUSSSE999S9 6 FSS S093 GSE SSESCAGE ASSES SS BAGIESH OOLOSLSHTESISSSS 


REF 
REF 
REF 
REF 
REF 
REF 
REF 
REF 
REF 


COMMON /CATRE/ PRENT SePRIMTZ 2 EURO LVS IVE eg ILCLESS HO ONT EL olde bh ell yREF 


SHSTART eGELK g CDELX KK Xl 20g XHAK, HO 


UNTEGER PRINTER SPRINT 2 
GO TO £20930,603. fCL ASS 
HPLSNP | 

BG 20 TalyhP 

CALL REFRY (Kel sNPS) 
CALL REFKS (Kely Fei) 
CALL REFKS iKeHPI,gNP«D) 
CALL REFRY (KehP OL eNPE) 
CALL REFKY (Kelle NP~2} 
CALL REFKS (Kole 3) 
RETURN 
NPZoNP22 
00 40 91,8? 

GALL REFKY Kel otP-2 5 
CALL REFXY (Kole hP=2) 
00 50 f=1,hP2 

CALL REFKZ IK chPm det} 
CALL REFKZ (KsNP~-Z,1) 
RETURN 
HPZeNP oe 
50 70 [si,.8t 

CALL REFKY (Xe5eHP~k? 
CALL REFKY (KX, ig hP-2} 
RETURN 
END 
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REF 
REF 
REF 
REF 
REF 
REF 
REF 
REF 
REF 
REF 
REF 
REF 
REF 
REF 
REF 
REF 
REF 
REF 
REF 
REF 
REF 
EtG 
Se 
REF 
REF 
REF 


10 
Zo 
a9 
40 
50 
60 
70 
80 
96 
ico 
410 
$20 
330 
140 
150 
169 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
279 
280 
290 
390 
340 
320 
230 
2466 
250 
349- 


‘ 
| 
| 
| 
i 
i 
i 
i 
: 
i 
i 
} 
a 
: 
7 
a 
: 


ee 


SIBFIC REFKY 


re A een RENR DN mermmenane Ware 


SUBROUTINE REFRY (Keio Jd} REY 

c REY 
Cc FOS EISHSEISSSESSOESDESE SELSSLOAISHHSSSS GLSFASSHVTSHGSTEHY SHSSED REY 
Cc REY 
Cc PERFORMS REFLECTION OF POINTS AND FROFERTIES WITH RESPECT TO REY 
c PLANES OF SYMHETRY REY 
c REY 
Cc SSRSSESESESSSSSEE SESSSTS ESSSSSSE CHSC ESET OL FSHSHOESOS9I ESSE CECEIE REY 
c REY 
COPHON /SSOLUTNS YO 22 1D, 299074 2e bGe IDF UL Ze 1Da LF OVE ZL 21D! ehl2,iOREY 

LelLDD oP S21 e SDV PTIL LG LD) til £90 19) gKLASSEI9,1 98 aey 
COPKAN /CNTAL/ PRINT IsPRINTZ2ERROR cEVSTYP o ICLASS MP ONT eo ET e SSek oll REY 

UNS FART DEL» CDEL XK eKK 9X4 2) oXHAX,NO REY 
COPKON /PLANESS NFOS OMX ISNYL NZ Lek 2eHY2,HZ2 REY 
COPHON JEWS/ KSORLsYSORC pZSORC p XIVS VE TVS 5 ZCLVS PEE ¥S pPHICT yy THECIREY 

LV ePTCIVSsHCIUS sREIVSo KEY Se THETIV se PSEIY yPTEGSeHIVS pXPSORC o VPSORC »LZPSREY 
20KC, AL PSRCOBETSRC REY 

RESL HXLSNVE MZ L oNX2eNY 25NZ2 REY 

c REY 
4 REFLECT AT Y°X PLANES OF SYHNETRY REY 
REY 

JZEZENP—J REY 

YEMe ke IZISV EK 1s F) REY 

PUKo le dSZPe-2 Kole SIPZ 0820 EVS REY 

UK bo SSP AUC Ke Fe J REY 

ViKot ec SZIBViK, fo 5) REY 

WK gba IZIB-WEKe Eel) REY 

PUKe be S22 2P i Ke 1,5) REY 
RETURN REY 

¢ REY 
Cc REFLECT AT 2-K PLANES OF SYHHETRY REY 
c REY 
ENTRY REFKZEK, Es J} REY 

c REY 
(2<264 pol REY 
YUKel2pJPeW~V UKs I DIOS OSYCEVS REY 

Pat TS Pere raL vee ep) REY 
UIKET2,I)8UIK,to0) REY 
ViSei2,JIa-ViKe lod? REY 

WIKe blo SimwiKs he J} REY 

PIKSI 2 ShoPLKe te J? REY 
RETURN * REY 

Cc REY 
G REFLECT HEYH RESPECT TO AN ARBETRANEILY LOCATED PLANE OF SYHRETRY REY 
c REY 
ENTRY REFKS EK. 1, 35 REY 

¢ REY 
€C CALCULATE PROJECTION OF THE RADEUS VECTOR ON THE NORMAL REY 
£ REY 
DeCVEK he SI~VCEVS ONY 29 421K s fp UI-KZEUYSIONZZ REY 

VER Is THeV EK led I~ 2.0SDONVZ REY 
Limeds fSsZeKale td }-2.0eDONZs REY 

OMe Se TI UK eed) REY 

VERS EDV EK oof FFUE LD 2-OONY2ZER2INK- 2. 08H (Ket ep SIONYZONZ2 REY 

MEK ade Tew (Kode I FSi LE .0- 2.082 2092)-2,00VIK, 1 es} ONYZONZ2 REY 

PEKea Se SeP IK ef, 0) REY 
RETURN REY 

ENB REY 


T1PKe mus cemmeneneveemAeenahdabenenm SHEATHS MURTTENMHIN HIME! MACH 


Pn ec OR. mnie trate 


$ORICIN A 
SISFIC SPLINE 

SUBROUTINE SPLINE (MNOT ,XK,VALUE,COEF) See 10 

c SPL 20 

c POOSOSHSSOFRSSSE SOS OSE SSOSSIESOSSSOES OEE SESE ESSE HOSE SEES OSOSSOS SPL 30 

£ spe 40 

C  GEVEN THE ORDS VALUE(EeL) AT KHOTS XKEE) AND SLOPES VALUEEE,2) AF SPL 90 

€ CHE FIRST AND LAST KNOTS, THIS SUBRy FENDS THE CUSIC SPLINE WHICH SPL 60 

C INTERPOLATES AT THE KNOTS W.R.T. AGUVE VALUES. THE INTERP. 15 §N THESPL 70 

C SERSE THAT SLOPE VALUES JF THE SPLINE ARE COMPLIED AT EACH OF THE SPL 80 

© GIVEN KNOTS. spi 90 

c SPL 106 

Cc $EIREISIS ONS SOSH OHS HSS SHSTO SHS SHS SSS S SSOSKSESSEHOOCOSEASOSESE S$Pt 8210 

t $PL 120 

DIMENSION 0303, OLAG(30), VALUE(3C e229 XK(3C), COEFL4, 30) SPL 130 

KH KNOT<1 SPL 140 

KNM2KNOT-2 SPL 150 

CO 20 MeL, KNaL SPL 160 

DIM) SKK MeL I-KKIM) spe 170 

10, CEAGE Mp =I VALUE( MOL, 1 -vALUE(M, 1) )/00M) $PL 160 

VALUE(M,Z)53- S{D0M-1 }#0TAG(M}4DEK) CDIAGIN-19) 3PL 200 

20 CLAGS H-1 952, ef 00M) ODIM- 19) SPL 219 

VALUE (2,2) =VALUE (2521-012) *VALUELE 52) SPL 220 

VALUE (KHM 1.2 }=VALUEL KML, 2)-D(KNM2 ) OVALUELKNCT 92) SPL 230 

If (KNOT.EQ.3) GO TO 40 SPL 240 

CU 30 Me2,RNM2 SPL 750 

G=-DEMeL I /DIAG( HA 1) SPL 260 

UIAG(MD 2D LAGE M} OGOUE A=) srt 270 

5D VALUE S01. 2) =VALUEL Mol, 2) ¢GOVALUZEM, 2) SPL 240 

40 «—- VALUE KNM1, 2 )=VALUEL KOM 1,2) /OLAGIKNMZ) SPL 290 

IF (KNOF.EQ.3) GO 0 60 SPL 30) 

CO 50 =2,KHHZ SHi 340 

NJSKNOY <P Spt 320 

50 VALUE (N59 238 (VALUE(NJ, 2 F-DINI-1 JOVALUE (NAO D529) /0SAGINS~2) SPL $80 

60 = CUNTINUE SUL 346 

CU 70 $32,KKOT SPL 350 

; DXOXKELI-KKUT=2) SPL 360 

; COEFIL, EP =VALUECS-1e 1) SPL 370 

‘ COEF (2s S$) sVALUELI-1, 2) SPL 380 

COEFI3, 4} =CVALUES Bol I-COEF( LS A} 3/0X SPL 390 

COEF (4,1) sCOEF (2, LIOVALUE (9 23-2.9COFF E351) SPL 406 

COEFL3y 1) =(COEFI3 63) -COEFL 4, FI-COFF EZ, 599 70% Spe 410 

70 COEF 44 yf b=COEFIO, SI/EX/ 0K SPL 420 


RETURN SPL 430 
Eu SPL %40- 
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BO nate’ ory 


1 On 


2 
: 
g 
| 
i 
} 
i 
00 20 #e2,KNM1 SPL 190 i 
3 
| 
| 
| 
i 
| 
Fy 
i 
! 
| 
i 
i 
| 
i 
3 
i 
; 
| 


SIBFIC MACHP 


SUBROUTINE KACHP (itePTeHePQ) MAC 10 
c wal 20 
£ SERSSOOHEN SE SSSESSSSTHES SESHSSSESESIS SISOS SRO SEES SOESESSSSEVESESESS “aC 30 
c mac 49 
C THE PRESSURE AND VELOCITY ARE FOUND FOR A SPECIFIED MACH “0. USING HAC 50 
C ARCSB1 BY THE NEWTON RAPHSON ITERATION SCHEME MAC 60 
ra “ac 70 
c S9SOSOECEHS ET OBESE SCEE OSS SEESEHES SECESESE SESESEOSEEESESSSSEESE ISCO MAC 689 
t Mac 90 
MEAL HeHlyn2 Hac 100 
K=0 BAC 140 
PlaPt 6! 1.000.13N692) 89{ -619(1.0-0.1/Kes2) #aAC 120 
P2=P190.99 waC 230 
CALL AROSBL (PL, PT oHeAy RO,QS) MAC 140 
FLESORTIGSI7A wAC 150 
CALL AROSBI (P2,°7,H, Ar KO2QS) vac 160 
P2aSGRTLASIZA HAC LTO 
D0 30 N=1,50 HAC 140 
PaP2e(M-M2)0(P2—P 137 (M2-HE} MAC 190 
1F (P} 10,10, 20 NAC 200 
10 P=#260.9 MAC 210 
20 CALL ARGSBL (Py PT eH, ApRO,OS) MAC 220 
Keke FAC 230 
Pisp2 HAC 240 i 
MESM2 MAC 250 i 
P20P MAC 260 
M2=SQORT(OS3.4 MAC 270 
IF (ABS((92-P1)/P2}.LT.L.0E-07) GO TO 40 #aC 280 ; 
30 © CONT ENUE MAC 290 ‘ 
c MAC 300 . 
C FAILED TO CONVERGE IN 50 ITERATIONS MAC 310 ' 
c ¥AC 320 
CALL ERRORS (3) HAC 330 
45 = GeSQRTIQSS HAC 340 | 
RETURN vac 350 i 


END RAC 360- 


ae 


i 


Steet ane Mt PIRAYPL 


SE Se em a mS rnin te 


SiBFIC SOURCE 


feel sRalskatal«al al 


Ban 


SUBROUTINE SOURCE (ROVe Hie PTL, PRESS »Q) 


OBOESHDOSSSES ESSE OESSESS SESSESHSTSASSSHSSHSS CUE SHOSSSEOHSCESSIO 


THE PROPERTIES OF A SPFEZICAL SOURCE ARE CALCULATED FOR THE #ASS 
FLUX PARAMETER ROY AND THE REFERENCE CONDIY{ON BY THE NEMTON- 
RAPHSON ITERATION SCHEME 


9OS$SEOESEHS FSESD 4908 HSS COSSHE SE SES SESS SEO SHOES SEES ESOS SESEED 


Sou 
$ou 
sou 
$ou 
soy 
$au 
Sou 
$ou 
sau 
sou 


COPROH /AROL/ GAMMA, RGAS, GAM) »GAM2 »GAN3 GANS pGAMS oP TAGL 301 ehC044 ,3S50U 


109 ,ROCO14, 302s 3COl 4s 303 p GSCO1 Se 30) NFOE gNTHERM,s § oF SOURC 
PiL-PSOURC 
P2=P1 20.99 
CO 60 N#1,50 
CALL AROSEL CPleP Ti, Hick otOisQSt} 
CALL AROSB2 (P2eP Ti. HieheRO2.0S2) 
AGYIoROLSSORT (G51) 
ROV 25RO22SCRT(0S2) 
DEL Pa(RO¥—-ROV 25/1 Riv 1-ROV2)¢(P1-P2) 
IF {ABS{DELP/P25-0.2) 10510220 
iF {ABS(CELP/P2).11. 1.0E-07) CO TS 70 
Go to 50 


PisP2 

iF (DELP) 30, 30240 
P22P240.9 

GO fO 60 


P2eP26E.4 
sO To 60 


PisP2 
P2eP2¢DELP 
CONT ENUE 


FARLED TO CONVERGE IN 25 ITERATIONS 


WRITE 16680) PL. P2eROV, ROVI»ROV2»PSOURC 
CALL ERRORS (5) 

C=SGRT(Q52) 

PRESS =P2 

PSGURE sP2 

RETURN 


FORMAT (1H0,6£15.7) 
EnO 
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s$ou 
Sou 
30U 
$ou 
$ou 
Sau 
sau 
SOU 
sou 
sau 
sou 
sou 
sou 


ia 
26 
30 
ad 
5¢ 
60 
76 
&9 
99 
100 
110 
120 
130 
140 
250 
60 
17¢ 
£860 
190 
206 
210 
220 
230 
240 
250 
260 
270 
280 
230 
360 
310 
320 
330 
340 
350 
360 
370 
380 
320 
460 
410 
420 
430 
£46 
450 
460 
470 
480- 


Dy agate ny 


om maneremarnatne a MERCER BAHN 


SRBFIC INVALS 


SUBAOUTINE fMVvaLS (143) fay 35 
Cc inv 26 
c SHSSSESASHSLHSSESSE FHSS SSS SOSSSRSES SSE ESEHH OSOESHSESSSESESOOVESSOBS iu 30 
c tiny «0 
c CALCULATES IHETIAL SURFACE PROPERTIES AT FHE POINY (1,59. FOUR Tav 50 

c OSTIGHS ARE AYAILAGLE AND ARE SELECTED BY THE PARAMETER IVSTYP HHICHINY 6C ; 

Cc CAN HAVE THE VALUES 1, 2, 3 OR 4 CORRESPONDING Fo inv 70 . 

Cc i = UNIFORM HOMENTROPIC FLOW AT THE VALUES SPECIFIED 43 THE {ny 80 . 

c SHE CENTER POINT OF THE INITIAL VALUE SURFACE inv 90 i 

c 2 ~ HOWENTROPIC SOURCE FLGw SPECIFIED BY YHE REFERENCE POINT tny 100 i 

Cc PROPERTIES AT THE CENTER PUINT GF THE INITIAL VALUE SURFACE inv 110 i 

Cc 3 ~ AXISYMRETRIC NORHOMENTROPIC FLOW SPECIFIED BY TASULAR {nPulr Inv 120 j 

Cc 4 ~ LINKAGE TO & USER SUPPLIED SUBROUTISE CALLED I¥SUB(1. 2) Inv 130 j 

c inv 140 

c 9S9SESEEG0 EO ODOC EOESES’ 693586906930666 6590 9609095090 SES08RESEE iny 150 i 

c iy 160 : 

COMMON SSOLUTN/ Y1 2019s 29 2ZE Ze 1g LD) LE 2elFe ld VIZeIGolG) shi2el DENY 170 : 

£919) oP 129190 1Dde PTI 290 9) otf 19019) KLASSE 19229? inv 180 i 

COPKUN /ARCE/ GARMA,RGAS sGAM1 eGAM2 .GAN3 GANS GANS ef TAGI30) eACOI4s3INY 296 i 

19) eROCO14 5 303, TCO(4, 30) eQSCOl 4p 30) aNFOELNTHERN, TSE »PSQURC Inv 209 i 

c inv 210 i 

COMMON /CNTRL/ PRINT LePRIHT2 ERROR gL VSTYP SICLASS MP ONT Sie SSetoll sit¥ 220 | 

ENSTART eDELX » ODELX KK o¥€ 2) o XMAX eNO inv 230 é 

COVHON /CCNST/ 2$,DRAD, BFU.G,8TUOG inv 240 I 

COPHON S/EVS/ KSORCeYSO%CeZSORC e XIVS, YC IVS. 2CIYSeMCI US sPHEICI Ve, INECTINY 750 : 

d Le PICIVSsHCIWSsRIVS MivS, THETIVoPSIIVePTIVS sHIVS sXPSORC »YPSCRCSZPSINV 260 z 

race 2CRC, AL PSRC,BETSRCE inv 270 Fi 

OTS COMMON /PLANES/ POS NX L,NVLeNZ LoNXZ2eNYZ2eHZ2 Inv 280 i 

a COPMON /WALSBS VAXINeZAXISoXT(4) RTI) iC 14) o THETA (4), XE14) sREL4DINY 290 ; 

Lo THETAEL4S ) gNSYAMY XV 114 ) sEXPVE(4)9 XY214) <EXPY2(4) pDEOXYZ(4) sEXPY3LINY 300 : 

24) XZ114) pEXPZIC 4) X226 49s EXPZ2(4) pDEDKZ214) VEXPZ364) gX¥314) oXE3LGiNY 310 i 

: 3) tny 320 E 

mae CAMENSION RIVS(30)e HIVSL30), THETIVE3C), PTI VS(30e2) 6 HI WS136,2) INV 330 I 

3 PSTIV(30) inv 340 i 

DIMENSION UKEVS03002)—¢ URIVS130.2)5 PI VS130s235 UFCD14,301. URCOL4INY 350 z 

1¢30)— PCOL4s3035 HCOids 30)9 PICO14e30)¢ UICOl4s 505s UTIVS(30,23 inv 360 i 

REAL ACIVSeMIVSoNX Ly NYE ONZE LeNXZ NV 2eNZZgNXoNY CNL Iny 310 i 

ie SHMTEGER PRINTIgPREINT iny 380 : 

a GO TO (10620030¢ 70}. ivStTYP inv 390 : 
a c 3n¥ 400 
ey c UNLFORM HCMENTROPIC FLOW inv 410 
r Cc inv 420 
ped a0 Uliels Jisut INV 430 
ae VCleI, Jevi INY 440 
Se wdbeleJieml {nv 490 
aa PCisletIePi txy 460 
Ss HO ts Jd mHCIVS fhv 470 
eau PY(E, SisPIC iS thy 449 
iy CO 10 82a inv 496 
a] c Inv 590 
a Cc HOBENTRGPEC SOURCE FLOW inv 5l0 
oi, c itv 520 
Loh 20 RID (XIVS—XSORC DP Os2e1 Yl dele JI-VSORC 398200261619 5SI-ZSORC 942 inv 530 
| RO¥“SGURE/RSQ INV 940 
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WAMHOM 


Wome 


CALA SOURCE (ROVSHCIVS. PICIVS oP Ele te 41203 
apaSoatiasoi 

Uliels J)2Q34£19S- XSORC) 72P 

WOLel, SdeQ0( Vile Ie SJ—-YSORCI/RP 

tide le 382Q05 Zils 1233-ZSOREI/RP 
Hie Sd eHCIVS 

PE(1,JIePICLVS 

60 70 80 


AXISYRMHETRIC NOMHOMENTROP IC FLOW 
CALCULATE QADIUS FROM AXIS 


RPMSORTIY1 leks SI-VYCIVSIOSZe(ZU291e53I-2C8¥S 082) 
DO 46 Hia2on@gyPrs 

Krk1 

ORsRPI-RivS(K 1) 

1F 108) 50.50.40 
CONTINUE 


TES! 10 SEE iF KANGE OF TABULAR DATa HAS SEEN EXCEEDED 


3F (A8S{0R).1€.1.0&-05)} GO TO 50 
Catt ERRORS 16) 


USE CUBIC SPLERE CGEFS. TO ENTERP. FOR PROPERTIES 


RPsRPL-RIVS{K-1) 

Ud dels SIPTULCOlL 16K J4UXCI 629K JORP CUKCOL 3 gh JORPSO2e ET 0146,K} OR POS3 
PLEel se S3=PLOL 12k 16PCOIZ gK J SRP CPCOI 35 9K J ORPOSZEPL 114 KI ERP OSS 
FIL ie SdePICOLL eK 4PTCOL 2eK JERP*PICO(3,K ) CRP SB ZOP ICOL4 4% JOaPSS3 
MET, SIBHCOLS eKICHEOL 2c 2 4RPOHCO{ 3,K JERPSHISHLE O14. K} SRP OSS 

{F {RP1.2£.21.0£-07)3 GO TG £0 

URAURCOL1 eK 2 +UROO{ 29K IFRPEURC OL 34K FORPOSZOURE O14 KI ORPOSS 
UTauTOO14 9K) UTIL G1 29K -ORPOVTICOl 3K JORPSSZEVITOl4, KI SRPSSZ 
WELel sg StIVETET( Le fe SI-YCUVSI-UTSO!£ Z(164¢33-ZCUVS3I/RP1L 

wi bel sg SI2CURS( 26 Le he $9-ZOIVS I Ulss Yid ele SI-VEOIVSHASRPL 

Ge 0 80 


¥Elei. $30.6 
SL hel¢4320.0 
GO fo 80 


USER SUPFLSED Mit Sat VALUE SUBROUTINE 


Eiket 

Sided 

CALt TySYUB Lilt. JJJ) 
RETURK 

ENTRY INVAL2 


SHITIALIZE SUBROUTINE IMYALS AND PRINT OUT APPROPRIATE PARAMETERS 
THESE LESITS Witt DEPEND GN THE OIMEMSIGNS OF COMMON /SOLUTR/ AAD 
SKAGLTS 


TF (POS .LE.1L.AND NP GF 210) KPE1O 


140 


ixv 900 
iny 910 
iav 920 
fuy 930 
in¥ 940 
imy 95060 
inv 960 
inv 970 
Inv 980 
{av 990 
tr¥1000 
iWV1010 
1%¥1920 
1n¥1030 
it¥I040 
is¥20S0 
1m92060 
fNvio70 
ievi0eo0 
i#¥ i090 
t#v1100 


1€ (NPOS.GT.1.AND.NPLGT 17) NP#17 
AT=2NP-} 
WRITE (6,200) 
WRITE (6¢210) 
IM[TIALIZE WHICHEVER OPTION 1, 2, 3 OR 4 1S SELECTED 
GO TD (90,100;110.160). IySTYP 


UNIFORM HOMENTROPIC FLOW 


LOA Aa 


0 iF (MCIivS.L£.1.0) GO TO 160 
WRITE (60220) KIVSeMCIvS,THECIV,PHICIVeP ICI vSetCivs 
PTCI¥SsPTCIVS9144.0 
HCIVS#HCI¥SeSTUNG 
CALL MACH? (HCIVSePTCIVS HC IVS.P1s0) 
THECIV=THEC TVSDRAD 
PHICIT VePHICI¥*DRAD 
Ul=QeCOS(PHICIy) *COS{THEC IT ¥) 
VisOQSCOS(PHICLY)SSIN(THEC EY) 
wiaQeSIn(PHICIY) 
X(DdexXI¥S 
Ga TO 270 


SPHERICAL HORENTROPIC SOURCE 


ewe AO 


80 YSORC#YAxIS 
Z2S0RC=ZAax1S 
RIVSaXT(23eRC(1) SIN (AL PSRCSDRAD) 
K(1L)2XI¥S 
RSORCHX1VS-{ RT {1 4RC 11391 2.0-COSLALPSRCSDRAD) 3) STANLALPSRCSDRAD) 
$f (MCIYS.LE.1.0) GO T3 180 


Envil10 
1NV1120 
Jnvilso 
ittvl140 
Invils0 
INV1160 
Iv1170 
Itvyi1180 
invii90 
invi200 
Invi210 
Isyi220 
Invi230 
InV1240 
InVvi250 
Invi260 
Invi270 
INVI259 
Inv1290 
ify l300 
Invisio 
INV13260 
1&V1330 
Inyl340 
Invi3z5o0 
IWV 1366 
1nv1370 
twyi3490 
Tw¥1390 
1NV1400 
Inv1410 
tNy1620 


WRITE (66239) AL PERC oXSORCs YSORC eZ SORC pXIVS2 YCIVSe2CI VS oMC IVS ePICIINVIG 30 


AVS eHCivs 

PICIVS=PTCIV¥S°144.0 

#CI¥SskCIiVS*BTUDG 

RSO=(XIVS—KSCRC) 82 

RP#SORT(RSQ) 

CALL MACHP (“CIVS,PTCIVS,HCIVSs PCI VSsQSI¥S} 

CALL AROSH1 (PCIVS.PICEVSeHC i vS AC ivSeROCIVS,OSINS) 
SOURF #RSOSROCI VS SSORTIQSivS) 

PSOURC#PCivsS 

GO Ta 170 


TABULER AXISYMMETRIC MONHONSSTA20PIC FLOW 


RK AO 


10 ¥Prl.OCVAXisS 
ZPSZAXIS 
WRITE 162240) 
AX20.0 
NY21.0 
#Z20.0 
ACR eXivs 


c 
C FIND RADIUS OF CONTGURIMUST BE AXISYMMETRIC} 
Cc 


InV2450 
INV1450 
ftavi460 
[nV1470 
Invi480 
Invis90 
Izy 1500 
Invi51lo 
1NV1520 
Invi550 
Itv1549 
Invl550 
£*#V1560 
invis70 
Inyis4d 
fnwis90 
Ivicood 
InVio10 
Inyie20 
INV1i630 
INVI660 
inNV1650 
ENy1660 


CALL WALSUS (XIVSsYPe2P eNXeNYNZ) INV1E70 


LU 140 K=1.30 TMVIS80 

NI VPTSaK PAV i690 

WRITE (6,260) RIVSIK ID SMIVS(K) pTHETIVEK) SPSIIV(K) pPTIVS (Kel? sHIVENVITOD 

1 S€K,1) INV1719 

PTIVS (Ks 2 D#PT IYS (Ko 1 19144.0 INVL720 

HIVS(K, 1) SHIVS(K, 1)@BTUOG INVL730 

c 1NVI740 

C MACH NUMBER CN 1.¥.S. MUST BE EVERYWHERE GREATER THAN ONE INV1750 

IF (MIVS(K).LE.1.9) GO TO 180 INV1770 

CALL MACHP (HEVS(K}, PTIVS( Ke L)sHIVS (Ke L) gp PIVS (Kel) 90) INV17B0 

c £NV1790 

C CANNOT HAVE PLANES OF SYHMETRY IF ANY PSI 1S GREATER THAN ZERO TNV1800 

c PNV1B10 

1* (pSTiV(K). 61.0.0. AND.NPOS.GT.0) GO TO 150 INV1620 

PSTIVIK}=PSET Va S) DAD 1NV1830 

THETIV(K J2THETIV(K}®DRAD INV1849 

UX TyS(K, E =Q8COS( THE TIV(K} )SCOS(PSTEVIK)) 1NV1B50 
UT EYS (Ky 1 )=Q8COS{ THE TIVIK) )@SINCPSIIVEK)} TNY1660 ; 

URIVS(K, 1 5208SIN( THE TIVOK)) INV1870 

IF (RIVS(KI-Y¥P) 120, 150,120 LAV 1380 

120 {F (ABS(RIVS(K)-YP).LE,0.0001) G: TO 150 1NV1B90 
IF (REVSEKI-YP) 140, 150,130 1sV1900 : 
c INV1S10 ; 
C WARNING IF LAST PDINT OF TABULAR VALUES IS NOT ON WALL TNY1920 : 
- c 1#V1939 : 
a 130 CALL ERRORS (7) LHVI940 : 
GO 10 150 1RV1950 : 
> c INVL960 : 
; 149 = CONTINUE ENV1970 ‘ 

c INV19B0 

C ESTIMATE DERIVATIVES AT ENDS OF CURVES Ay FINITE DIFFERENCE APPROX. INV199D 

c invz2000 

150s UXIvS(1,2)2=0.0 INVZD10 

UT1¥S(1,2)=0.0 INVZ020 

URIVS{142)=0.0 1NV2030 

P1VS(1,2)20.0 1NVv2040 

PTIVS(342220.0 Inv2050 

eee H1¥S(142)20.0 ENVY2060 

ae CELRERIVS{NIVPTS }-RIVS(NIVPTS-1) INV 2070 

UXIVS (NIVPTS,2)= (UXIVS(NIVPTS, 1 )-UXIVSINIVPTS—151)) /DELR INVv2080 

ULIVS (NIVPTS 6202 (UTIVS(NITVPTS, 1 )-UTIYS (NIVPTS—1,1)3 /DELR 1NV209G 

URIVS (NIVPTS22)= (URE VSUNIVPTSe 1 }-URIYS(NIVPTS-1.11) /DELR 1N¥2100 

PLVSUNIVPTS» 2)20 PIVSINIVPTS,1)-PIVS(NTYPTS—1 1) }/DELR INV2110 

PTIVS (NEVPTS 2) (PTIVSCNIVPTS 2 1 -PTIVS (NIVETS—1 e112 SDELK $NV2120 

HIVSCRIVPTS,s 23=( HIVS (NI UPTSs L)-HIVS(NIVPTS—i01)) /DELR 1Nv2130 

CALL SPLINE ENIVPTS,R1¥S,UZIVS,UXCD) INV2146 

CALL SPLINE (NIVPTS,RIVSsUTIVSsUTCO) THY2150 

CALL SPLINE (NIVPTS¢RIvS,URIVS,URCO) INV2160 

CALL SPLINE (NIVPTSeRIVS:PIVS»PCL) INV2170 

CALL SPLINE (NIVPTS,HivS,PTIV¥S, PICO) 1av21e0 

CALL SPLINE (NIVPTS,RIVS,HIVS,HCO) 1NV2190 

CO TO 170 1N¥2200 

c 1Nv2210 

160 RITE (6,250) 1#Y2z20 


CALL IvS82 IN¥2230 


RiLp=Xivs TNV2240 
170 RETURN InNV2250 
¢ {v2260 
c ERRNR RETURN LF A BACH NO. LESS THAN ONE iS FOUNU ERV2270 
c TNV2260 
230 CALL ERRORS (81 INY2290 
A tHN¥2300 
c ERROR RETURN FOR INCOMPATIBLE DATA TN¥2310 
c TNV2320 
190 Cal ERRORS (9) tuV2330 

RETURN INV2346 
c INV2Z35C 
G TNV2360 
200 FORMAT {(iHO) 5NV2370 
210 =F ORMAT (1HOsSXs2QNTYPE OF ENITIAL DATA SURFACZ) TRV23580 


z20 FGRMAT (1HO,10X,85HTHE FOLLOWING YALUES ARE CONSTANT OVER THE ENTLINYZ390 
IRE 'NIVTIAL DATA SURFACE LOCATED AT X =,FS.4e5H TINS /LHO,LOX%,3HH 2,1 NY 2400 
ZEB Se4XTHTHETA 295 722c LX es SHIDEGS pS SHPHE waF Tl 21 Xe SHIDEG) ,4X,4HINV2410 
BPE meFO2eLKeLLH(LBESING92)44X—_ SHH =, F 1002, EX 2eSHIBTU/LBM)? iNV2420 
239 FORMAT (LNG: LOX, ALSHSOURCE FLOW IS USED TO ESTAGLESH THE ENETIAL VINV2¢30 
L4LUES. fFHE SOURTE ANGLE IS SPECIFIED ANDO THE SOURCE POINT I$ LCCAINV2440 
2TEC/LHO, LOX, ILGHON FEE NOZZLE AXES SUCH THAT THE INITIAL FLCh FS TINV2450 
ZANGENT TO THE NOZZLE WALL. THE PROPERTISS OF THE SOURCE ARE/1HO, 21NV2Z460 
GOX ,9SHESTABLISHED SY SPECIFICSTION GF THE PROPERTIES AT THE AXIAL INV2470 
SPOINT OF THE SNITEAL VALUE SURFACE./IHCeIGX,L2HSOURCE POINT /LHO.LOINV2450 
SXsIAHSQURCE ANGLE *cF lo 39 SH (DEG) 9 2X_3HX 29F10.405H CEN) e2X,3HY =INV2S90 
TeFLO.4 SH CIN) 2Xs3HZ #eF 10. 4,5H CIN)» /LHOg LOX, ESHREFERENCE PCINT/INV2>90 
BLHOo LOX SHX Fy FLO.4, SH CINDY 2A. 3HY SeFIC40SH CIN), 2X,3HZ =9F10064,INV2O10 
OSH LIND/LHO, LOX, HM %eF 10.49 4Xe GHOT ZeFICC2eLLHILBE SINS*2Z) »2xX_,3KH FhV2520 
@2,F12.1eSH(BTU/LBM)) iNV2520 
240 FORMAT (1HO, 10%, 108HTHE INITIAL VALUES ARE AXESYPMETRIC AND ARE SPINV2540 
LECIFIEN BY TABULAR INPUT AS FUNCTIONS OF THE RADIAL COORDINATE 1LHOL w¥2550 
2, LOX, LOHRADIUS( IN) »2XsGHMACH NOoe2X¢ 1 GHTHETA(DEG) p2 Xe 8HPSE (DEG) pL XINV2560 


Be L3HPTILBM/ IN@®2) 1X ¢ LOHH(BTU/LBM? ) INV2570 
250 FORMAT (1HO,10X, L05HTHE VALUES OF THE DEPENDENT VARIABLES ARE DETEENV2D89 

LRMINED BY MEANS OF A USER SUPPLIEC SUBROUTINE CALLED ENVALS) INV2590 
260 FORMAT (21H 9 1L0X9 F904 2X pF Ee4s IX oF Te 39 4X oF od 0 4K oF Bole TX oF Bo2) [NV2600 

END ENV2610- 


SIBFIC ty¥suB 


AHONOMAASAeAAY 


SUBROUTINE IVSUB @3,J) ivi 
iva 

FOOSE SHOSEE ST SOSSSESTIIS SSE SESESERSE SHS EHS SSS) HESE OLED HS BESS HSES OD tVp 
IvB 

THIS SUBROUTINE MAY BE REPLACEO BY A USER SUPPLIED SUBROUTINE IN ive 
GRUER FU GENERATE SPECIAL IZED TYPES OF ENITEAL DATA SURFACES ivB 
IN THIS PARTICULAR SUBROUTINE TKE IVS PROPERTIES ARE CALCULATEDI VB 

BY SUPERIMPOSING THE FLOW FROM TWO HOMENTROPIC SPHERICAL SOURCE ivi 
FLOWS -- AN APPROXSMAYION FOR A SKEWED INLET FLOW ive 
tvs 

SEOEEKISE ENE S OSES EESERES SES HSESSE SLRS HES SESSEKSES $SEVEH OHSS SERERE Iva 
IvB 

COMMON /SOLUTN/ VO 2019) 19D 2020 190 19) UL Ze LDA LD) YC 2eLGe1 9) h(2e19IVS 
LolD) PK 2 ADe LDS PECL9 929) HE LGs 19) »KEASS (19,19) {vB 
COPNON 7AROL/ GAMMA? RGAS*¢GAM1,GAM2 ,GAM3,GAM4,GAM5 +P TABI 30) -ACOL4, 35 VB 
10} pROCOL 4,30), TCO 4, 30) pQSCOl 40 30) sNFUFeNTHERM eS ELT »PSOURC ivo 
COVMON /TCNST/ PI, DRADe BTU,GeBTUOG {va 


COPMON /EVS/ XSORCsYSORCsZSORC  XIVSsYCEVSs ZCEVS MCI VS »PHICIV, FHECIIVA 


LVePTCIVS»HCEVSsRIVS eo MEV Sp THETIVePSLivePTEVSeHEVS eXPSORC »VPSORC»ZPSI VE 
2CRC,ALPSRC,BETSRCE {vob 
COFPHON /FLANES/ NPOS»NX LoNYLINZLONX2,NY29NZ2 vB 


CUNMON /WALSB/ YAXES sZAX§SeXT14) eRT04) oROV4) pe THETAT (4), XEM4) RECS ITVS 
be THETAE(4) pNSYMMY p XV E04) pEXPYL E40 eXV¥204) eEXPY2( 4) DEDXY2(4) sEXPY3(IVG 


24) XZL14) ¢ EXPZU04) 9X 220 4), EXPZ2(4) pDENKZ264) gEXPZ3(4) eXV314) pXZ3(4IVB 
3) ive 
DIMENSION REVSI30), MEIVS(30), THETIVE30), PEIVS(30,2)5 HIEVS(30,2) VB 
t PSIIV(30) iva 
REAL MCIVS MIVS @NXLNYL NZ Lg NX2gNV2—eNZ2 IVB 
RSQAz{ XIVS-XSORC 1 #824(Y (Ly be JI-YSORC) #924 (20 bo Eg SI Z2SORC) S82 ivi 
RSUB2UXIVS-XSORC )##246¥ (1 _912I)—-YPSORC ) #2412 (2 e Ty J)—-ZPSORC) 992 {v0 
ROVA=SCURF/RSQA Iva 
RUVB=S QURF/RSGB 1VB 
CALL SOURCE (ROVA,HCIVS ¢PTCIVS» PAsQA) IVB 
GALL SOURCE (ROVByHCIVS gPTCIVS, PB, QB) ivo 
RPAZSQRT(RSQA} Ivo 
RPB*SQATIRSQB) IvB 
UA=QA®(XIVS-XSORC)/RPA 1VB 
UB=Q0B4 (XIVS-XSORC}/RPB IVB 
VA=QA*1V( Lol) J)-YSORCI/RPA ivB 
VB2QB*(¥41_1,J)~YPSORC) /RPB ive 
WAZQA®(Z( Lote JI-ZSORCI/RPA {v8 
bU=QB84(Z( Leb eJI-ZPSORC) /RPB {vB 
RaCVC Le Le SI-VAXES )#O24( 201g Lg SI-ZAKIS) 902 ive 
AsSQRTEIR} {vo 
WEA2SSINUPI/2,G#R/RO) )* #2 1VB 
WVB2(CGOS(P1/2,0%R/RO))€%2 IVA 
UAVE=WTASUA+WTS*UB IVB 
VAVE=HTASVACWIBEVE IvA 
WAYEZWTARHAtHT BENS iVB 
Pilel, JISHTASPAtHTB SPH IVB 
QAVE=SQRT fUAVESS 24VAVES @2+WAVES 2) 1V6 
LALL AROSBL (Pl Lely dPsPTCIVSHCIVS eAgROsQSBAR) Ivo 
RATIO=SGRTE QSBAR )/QAYE iva 
U(BeL, J)SUAVESRATIO IVa 
144 


10 
20 
30 
40 
50 
60 
70 
80 
90 
1c0 
uta 
led 
130 
140 
150 
166 
170 
160 
190 
200 
210 
220 
230 
240 
2750 
260 
270 
280 
290 
300 
310 
320 
a30 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
460 
460 
470 
480 
490 
500 
510 
520 
530 
540 


vw message scone sent gt wen etrnente vines-ecarentapia-eetctnrwetinn Vinton » minamey \AMNNLenerLO SenCRANRENOSL SARL enarveminemeseaanarht ty ot Set NPTUENTEE NAGN/HNNEIROMNRRONRDUNNEITLL yal ggeee OY 


Slik Ate A nlc aaa cnn acre = 


VCLeS s JPSVAVESRATIO [VB 550 
WO Lele JAWAVESRATIO Iv8 560 
PTUT, JBPICIVS {ve 570 
H(TeJS)*HCIVS 'VB 580 
RETURN Iv3 590 
ENTRY IVvSB2 {ve 600 
C {vB 610 
c THES ENTRY POINT 1S CALLED EN ORCER FO PERFORM ANY INITIALEZATICN {VB 620 
Cc CALCULATIONS FOR THE SPEC EAL INITEAL VALUE SURFACE CALCULATIONS IV¥B 630 
C ANY INITIAL DATA PRINTOUT FOR THE SUBROUTINE IS MADE HERE [vB 640 
Cc Iva 65¢ 
UF (MCIVS.tE&.1.0) CALL ERRORS (8) IVB 630 
YSORC2YAXIS ivB 670 
ZSORC#ZAXIS Tvs 680 
XUVS#*XT(L)+RCC1L) OS ING AL PSRC*#ORAD) [VB 690 
XSORCe@XIVS-CRTCLI*RCE (1) CL O-COS(ALPSRC*DRAD) DI /TAN(ALPSRC#ORAD} §=6IVB 700 
ROSRT (2) ¢RCC1)41.0-COS CALPSRC#ORAD)) Ive 710 
XPSORC =XSORC tvs 720 
ZPSORCAZAXIS Ivb 730 
VPSORC2YAKIS +{XIVS~XSORC ) OTAN(BETSRC*DRAD ) IVb 740 

WRITE (6,210) XEVS,YCEVS »-2CIVS MCIVS,ALPSRC BE TSRCePICIVSHCIVS,XSOIVGH 750 ! 

ERC, YSORC s ZSORC eX SORC »VP SORE» ZPSORC tvu 760 ‘ 
HCIVS*HCIVS *8TUCG Ive 770 
PICIVS=PTCIVS#144,.0 tva 780 
RSCA2(XIVS—XSORC )##2 : tvB 790 
CALL MACHP (MCIVS»PTCIVS,HCIVSsPCIVS,QSIVS) ivB 300 
CALL AROSBL (PCIVS»PICEVSsHCIVS AC IVS sRUCIVSsQSIVS! vB 610 

SOURF*RSQAFROCIVS*SQRT(QS2VS) IVB 820 

PSQURC=PCIVS TVR 630 
RETURN Ivs 640 
Cc IV 850 
C IvB 360 


+ ye 10 FORMAT (1HO»,10X- LO7HINVALS - THE INITEAL VALUES ARE CALCULATED BY IVB &70 
z ISUPERIMPOSING AN AXISY4METRIC SOURCE AND AN ASYMMETRIC SOURCE/LHO,IVB 640 
er 21L9Xe34HCOGROINATES OF THE REFERENCE POINT/IHC LOX s4HX 2,F924,5H (IVA B90 
arr BENS 4X 54HY 29F9 04e5H € IN), 4X_4HZ 2,F934,5H (EN) ¢/2HO, 10X » 26HREFELVB 900 
‘ 4RENCE POINT PROPERTIES/ 1HO, LOX» THMCIVS #9 F80494XeTHALPHA 2¢F602,6HIVA 910 
le 2 S (DEG) eSX,GHBETA +5F6.256H (DEG) e4X,4HPT =,F 9.2, L1HILBF/IN®#2),4X eI V8 920 
63HH Fe FI.2eSHIBTU/LBMI/ 1HO, 10X~, S2HCOORCSWATES OF THE SOURCE POINTSIVS 930 
TALHOe LOX,BHXSORC = 9 F950 4,5H LIND SX,AHYSCRE 9 =9F9.495H (END 24XsB8HZIVB 940 
BSGRO = F904 54! CIN) »/LHOe LOX, BHXPSORC %9F9-495H CEN) 04X,BHYPSORC SVP 950 
DzeFIG SSH CEND 2 4XePHZPSORC =9F904,5H (IND) T¥ts 960 
END Ive 970- 


ee Th a 
- sone 


? 
; SCRIGIN B 
SIBETC READIN 
SUBROUTINE READIN REA 16 
C REA 20 
Cc SSIMSESHSFESISSSSE SSTHE SST SCHESHSSSELCASCSH SISOS SSS HSSSSHSSEISORTEVSO REA 36 
€ REA 40 
& ALL DATA NECESSARY FOR SPECIFICATION OF GAS PROPERTIES, PROGRAH REA 50 
C OPTIONS, CONTOUR SHAPE AND INITIAL DATA SURFACE §$ INPUT THROUGH REA &0 
C NAMELIST DATA INPUT. THE NAMECISTS ARE CNTRLL» WALSBL, AROSSL, AND REA 70 
C VSL. SOME PARAMETERS AND DATA ARE PRINTEO OUT REA 80 
c REA 90 
Cc BO8EES 59999 SSSESSOFKGES SESS SEEH SES SEESGESS HONEST HENSSESSOESIEOCE REA 100 
c REA 210 : 
DIMENSION ALVS( 30), MIVSE30), THEYIV(30),> PTIVS(30¢2) 5 HIVS130,27 REA 126 \ 
L PSLUV(302 REA 130 
COVHON /ARD1/ GAMMA, RGA S,GAM1,GAM2 GAH3,GA%4, GANS »PTABL 30) eACOL4s3REA 140 
10 } »RUCOL4 » 34 Py TCOL4, 30) pOSCO( 4, 30) »NFOESNTHERMy {2 P SOURC REA 150 
COPMGN /AROZ/ ATABL30¢2) eROTABL 307 279 TTABL3042) eQSTABL30¢2) gMTABI3REA 180 
105 REA 170 
COPHON /CNTRL/ PRINT 1 PRINT2,ERRUR VS TYP, [CLASS NPoNTe ilo dtat sll sREA L6G 
LNSTART »DELX » ODELXy KK oXf 2) eXHAX, NO REA 190 
COMKGN /CCNST/ PE, DRAD, BT ,G,8TU0G REA 200 


COMMUN /IVS/ XSORC,YSO%C)ZSORC a XIVS» YC LVS» ZCI VS MCI VS /PHECIV,THECIREA 210 
LV PIC IVS HC IVS »RIVS, KEV Sp THETIV pPSIIV PT EVSsHIVSe XPSORC 2YPSCRC»ZPSREA 220 
ZCRC,ALPSRC, BETSRC REA 230 
COPMON /PLANES/ NPOS¢NX1yNYL¢NZSoNX2,NY2—NZ2 REA 240 
2 COMMUN /WALSB/ YAXIS pZAXIS¢XT(4) RT(4) ROC 4) p THETAT (4) 9 XE (43 »RE(4 IRE 250 
nate >, THETAE(4) sNSYMMY XY 1(4 ) EXPYL(41eX¥2(4) EXPY2(4) sDEDXY 245) EXPY3IREA 260 


24) oXZEC%) pEXPZLG 4, XZ20 4) 9 EXPZ204) DEDXZ204) EXPZ314) aXV314) gXZ3(4REA 270 
3) 


REa 280 

CUNHON /THRUT/ AREA, AREAT,FMASS eXTHRE ce YVHRE gp ZTHRE GXTHRSYTHR g ZTHR,XREA 250 

L¥OMT, YHOMT » ZMOMT »PAMB,F HASSE yRMASS REA 300 

, REAL MCIVSoHEVSs NX eNYE ONZ LoNX2 oNY20NZ2,MTAB REA 310 
Sy INTEGER PRENTIPRINT2 REA 320 
one NAMELEST /EVSE/S KEIVSSYCEVSsZCIVSsMCIVS pPHICI Ve THECIVePICIYS,HCIVS REA 330 
Nvane UREYS ep MEVS » THETEV ePTEVSe HEVSeNPOS ePSTLV eALPSRC pBETSAC REA 340 
vr NAHKELIST /CNERLL/ PRINT L,PRINT2Z ERROR s IVSTYP oNP pXHAXeNS FART REA 350 


eee MAMELIST /WALSUL/ YAXLS sZAX1SeXTRIgRC o THE TAT, KE RE g THE TAE pNSYMPY REA 360 
et AXVL EXPY oLY¥2,EXPY 2p CEOKY2 EXPY 3eEXPZ 2 X22 ,EXPZ2Z gDEOKZ2 gEXPZ3eXZL AREA 370 


ee 2KY 39X23 REA 360 
a NANELIST /AROSBL/ GAKMA,RGAS, MT ABs PTAB pATAB, ROTA eT TAG, PAMB REA 390 
he, ; CIMENSION TETLEC 22) REA 400 

. c REA 410 
C RED INPUT DATA REA 420 

c REA 430 

MEAD (5,350) TITLE REA 449 

READ {5,CNTRLL} REA 450 

READ (5-WALSBL) REA 460 

READ (5,AROSBE REA 470 

WEAU (5,1VSL) REA 480 

c REA 490 

C WRITE STANDARD COMMENTS AND TITLE REA 900 

c REA 510 

WRITE (5,170) REA 520 

WRITE (6,160) REA 530 
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HAITE 
WRITE 
WRITE 
WRETE 
URETE 
WRITE 
URETE 
WREYE 
URITE 
WRITE 


Stce IF 


AA AAG 


(6,550) 
(4,160) 
16-1803 
6,196) 
{6,160} 
66,290) 
(6,160) 
(6,210) TITLE 
16,160) 
46,220) 


XMAX 15 HOT SPECIFIED 


IF (XMAX.EQ.0.0) CALL ERRORS (10} 


ASSUME TASULAR THERMODYNAHEC DATA IF GANSA IS LESS THAN ONE 


IF ¢{GAMMA.LE.1.0) GO TO 10 


WHETE 
ca TO 


t6 WRETE 
WREFE 

co 20 

IF 


(0230) GAMPA,RGAS 
40 


16,240) 
(65250) 
{31-30 
(BTABCT)2EQ.9<60} GO TO 30 


NTHERN=1 


iF 


(f.NE.L6} GO TO 20 


WRITE (6-170) 
WRITE (5,160) 
NREITE $6,250) 


20 WASTE 


(6¢260) HTABUI DP TABCE) ,ATAB(C I, LI -ROTADII,1), TTABES,1) 


30 CONTINUE 
IF (NTHERM.LT O19) WRITE (69176) 


EVSTYP CANNOT EXCEED 4 


CALL ERRORS (1) 


WRLTF OUT PARAMETERS OF SPECIFIED FLOW GCOMETRY 


c 
c 
c 
40 IF CIVSTYP.LE.4) GO TQ 50 
c 
c 
c 
5 


c WRITE (64160) 
WRITE (6¢270} 
fF (NPCS.EQ.0) GO TO 70 
WKITE (6,280) NPOS,XIVS,YCIVS,2CIVs 
1F (NPOS.EQ.1) GO TO 60 
ASECTSPE/ELOAT(NSOS) 
NX22C,.0 
NY¥2=-SIN(ASECT) 
NZ2sCOS{ASECT) 
WRITE £65290) NXLINYLANZEeNX2~NY2—,NZ2 
GO Te 80 
c 
60 WRITE (62360) NXLONVI NZL 
GO fO 80 
& 
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REA 
REA 
REA 
REA 
REA 
REA 
REA 
REA 
REA 
REA 
REA 
REA 
REA 
REA 
REA 
REA 
REA 
Rt&é 
REA 
HEA 
REA 
REA 
REA 
REA 
REA 
REA 
REA 
REA 
REA 
REA 
REA 
REA 
REA 
REA 
KEA 
RLA 
REA 
REA 
REA 
PLA 


HEA « 


Ri A 
nCA 
xLA 
REA 
REA 


990 


RCALO00 
REALOLO 
REA1020 
REA10 30 
REALNGO 
REALOS5SO 
REALOSO 
REALOTO 
REALOBO 
REALG9O 


7 s+ > seernermneernarpumnennetesteuerysesBrnaneteenseteensenetoesetneteSOHeted — SemTietk't AGH" lnanbbvaloted "4. sunsabiouteinatesehiCs epestetenssageunsensientsnunseenreetertescarmarteseee 


nate neateemnenttinenvamnes a> 


i 
i 
i 
i 
| 
i 


to MRIVE £6,370) REAL1L00 
80 HRITE 16,1703 REALIIO 
WRITE (6,450) REALI26 
WRITE (65300) REAILAO 
c REALI40 
Cc fF NSVMKY = i) CONTOUR [S AXISYRMETRIC REAIISO 
c REALI60 
f€ INSYMMY.EQ.1) GO TO 36 REALI70 
c REALLBO 
c 1F RSYMAY * 2 SUPER ELLIPTICAL WITH ALL QUADRANTS THE SAME REAIL9O 
c REAL2ZGO 
IF INSYRRY.EQ.2) GO FG 110 REAIZ10 
c REAL220 
€ iF WSYHRY = 3 SUPER ELLIPTICAL WITH ALL QUADRANTS OIFFERENT REAI230 
c REALZ50 
1f {NSYMNY.EC.3$ GO TO 125 KEAE250 
Cate ERRORS (23 REAI260 
c REALZ70 
c TEST TC SEE TF THE NOZZLE IS CONICAL REALZ280 
c REAI290 
96 TF (THETATCE) €Q.THETAE12)) GO TO 106 REAL3OO 
WRITE (65310) KE ELI» VASES, ZAXIS RTI RCE EP ARECED REC LI pTHETAT (2) REALIIO 
LTHETAECL) REAL320 
GO TO i40 REAK1330 
c REAL3I40 
100) «= WRETE $6,320) AVGEb RCC LD XES ID THES TILE REAL35O 
GO TG 140 REAL3IG0 
Cc REAL37O 
c SUPER ELLIPTICAL REA1360 
c REAI390 
C TEST TO SEE IF ELTHER INTERCEPT £5 CONITAS REA 1400 
c REAICLO 
110 TF (CTHETATOLR) CEQ.THETAE(S) s REL LIARTCLICRC (E161 LeO-COSE THETATIL I SOREAIY OG 


TRADI IO(XETLIN“SINCTHETAT (LISORADIORCLLINXTELPDOTANSTHETATOLESDRAD) REALS 10 
TF (THETAT(2] 3 EQ. THETAEL12)) REC ZIORT( i ORE (25%11.0-COS{ THETAT (23 SOREAIS40 
RADI} 4 (XE(20-SIN( THE TAT 62) SDR AD DORE (29-2102) STANCTHETATI(2Z5¢D0RAD) REAI450 
WAETE (65330) XTCLE XT Ze VAKES ZAKESSRTGLIeROCLISXECL) pRECL) » THE TREAISEO 
LAT OLD, THETAEC NDS RTEZDRCI SD XEC ZI REL ZS) e THETATC 2) THE FAE(2) REAI4S70 
WRITE (6,340) REALGEO 
WRITE (64460) KV2UG2) sEXPYELERI OXVZELD SERPY2(E) sNV3CED SEXPYSCLS XZE(REAL490 
UL) SEXPZUGLD eXZ20 1) cEXPZ 205 ye XZICL) EXO ZICL) OEOKY2E 1) EOXZZE Lt REA1L5O00 


Gu TO 140 REAISIO 
c REA1520 
c GENERAL SUPER ELLIPTICAL REALS 3G 
Cc REAI540 
120 WRETE (6,380) REAI950 

WRITE (69390) YAXIS,Z2AaX1S REA1S6O0 

WRITE (6,400! REALS 70 
c REA1580 
c TEST TO SEE TF ANY CONTOURS ARE CONICAL REAIS9O 
c RE&1800 


TF (CTHETATCR IEG THETAETIE) RECLIERTCLIEORC ELISE .O-COS( THETAT (C1) SDREA LOO 
TRAD) DO (XE CT -SINCTHE TAT ELD SORADIERC EE I~XTCL) FOTANITHETAT(L)©ORAD) REAIO20 
WRETE (62460) XECEIARTE LACKED AXE CUI RECLD, THE TATOLI THETAECL REA1630 
WRITE (654%0) REA1L640 
fF CTHOTAT(3) EQTHETAE C333 RECIISRTEL PORC639002.0-COS( THE FAT (3) SOREA1650 
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3 
: 
Zz 
i 
ES 


‘+ aetecngeermenen eae DL | TBE dee posttest 


ad 


2609 


20 
220 
230 


240 
256 


URAD) PO (XEC 3) SINC THETAT (3) °ORAD DORE (SIXT C3) OTANI THETAT (32 °DRAG) REALO60 
WRETE 665440} XT(3)eRT6 3), RECS) KEUS5 REC 32, THETATO3) »THETAE (3) REALGTO 
WRITE (6,420) REA16§80 
LF (THETAT(2).EQsTHETAE(2)3 REL ZSPeRTCEDORC(29401.0-COS{ THETVAT (2) *CREAI690 
URAD) D6 (KEL29-SUNCTHETAT (2)SDRAD)ORE (23-XT (2) STANCTMETATI2)DR40) REALTOO 
WRITE £65940) XEC2eRTE 2), RCI2) KEL 2) pREL23 9 FHETAT( 2) e THETAE (2) REAL7TL0 
WRITE (6,430) RERIT20 
IF (THETATC4) EQ .THETAE(4)) REG SPSRTCLIORC14)601.0-COS( THETAT (%) SDREALTI30 
URAD) 10 (XE(49-SIN( THE TAT (4) 80RAD) FAC (49 -XT 14) 2 STANITHETAT(4)0DRAD) REALT4O 


WRETE (6,440) XE C4) 9 RTE 49 RC14) XE 14) oREL4), FHETATE 43 y FHETAE C4) REALT50 © 


CU $30 $8134 


REAL760 
$F CL.EQ.4) WRITE (6.170) REALTTO 
URITE (6,450) ! REALTBO 


URETE (65460) XVLCT) ECPVECL  eMYZ. TI SEXPYZTE De XV3CESSEXPVIIL DE eXZEIREALIVO 


PED SEXPZLCE De XZ20 EV EXPL 2002 eXZ3CE) EXPO LICL DEOKYZC1} ,OEOXZZ07) REALB00 
GO tO 140 


REALHIO 

REALB2Z0 

SF (NTHERM.GT.5) WRITE (6,170) REAL630 

RETURN KEA1840 

AEALGSO 

REA1LB60 

FORHAT ({1H0,39X%5 S2HTHREE-DEMENSTIONAL ANALYSIS OF SUPERSONIC NCZZLEKEALYK70 

t FLOW) REALUBO 
FORMAT (140) REALB90 
FORMAT (LHI) KEAL9OO 


FORMAT (3H0.5X,8HALSTRACT) REALDIIO 

FORMAT (1LHO,10X, LIB8HTHIS PROGRAM WAS PROOUCED AT THE PURDUE UNIVERREALY720 
ASETY JET PROPULSION CEVTER BY ¥. Ne RANSOM AS A PART OF THE RECULRREALY30 
ZEMENTS/i# sLOXeLLTHOF AF CONTRACT NUMBER F336£25-67-C-1068. TRE CONKESI940 
3TRACT WAS SPONSORED By THE AERO PROPULSION LAGOKATGRY WRIGHT FATTEREALYSO 
GRSGN/ LH , LOX, LLSHAFB, JHIO AND PRENCEPAL INVESTIGATORS FOR PURDUE RKEALY6O 
SUMNIVERSITY WERE PROFESSORS H. DOYLE THOMPSON AND JOE D. HOFFRAN./IREALYTO 
6hO, LOX, LIBHTHE EQUATIOVS GF MOTION FOR A THREE~UIMENSSONAL SUPERSORE ALISO 
7HEC FLOW ARE SOLYEO USING A NUMERICAL METHQD OF CHARACTERISTICS/LHREAI9IO 
BO ,lOX,LIZHHAVING SECOND-NRUER ACCURACY. THE FLOm VAREABLES wuSt BREA20CO 
GE SPECIFIED OVER A SPACE-LIKE INITIAL VALUE SURFACE WHICH/IH ,10XeREA2010 
®LZ0HADJOINS THE NOZZLE BOUNDARIES. THE NOZZLE GEOMETRY IS SPECIFIREAZO20 
CFD BY MEANS OF THE SUBROUTINE WALSUB. THE NOZZLE MAY HAVE s/1H »10REA2030 
®X,LLZHPLANES OF SY#METRY AND THE THERMODYAAMIC PROPERTIES OF THE GREA2040 
AS ARE DETERMINED BY MEANS OF THE SUBRCUTINE ARDSUB.) REAZ050 
FURMAT (2HO0¢ 5X, THHASOR ASSUMPTIONS, /1hO,10X,L22HTHE GASDYNAPIC MGREAZ060 
AOEt €S BASEv ON THE FOLLOWING ASSUMPTIONS. 2. CONTINUJM, 2. INVESREA20 70 
2Ci0s 3. STEADY: 4. STRICTLY ADIABATIC: »/1H ,1CX,89H5S. FROZEN CR ECREA2080 


SUILIBRIUM CHEMICAL COMPOSITION, AND 6. S¥YCOTH INETEAL DAT AAD BCUREA2090 
4ADARIES.} 


Rt A2100 
FORMAT §2H0e5%,9HJOB FIFLE,/1HO,10X,12A6) REAZ110 
FORMAT (1HO, 5%, LOHTHERNODYNAMIC MODEL) REA21L20 


FORMAT (LHO,10X,97HA CALORICALLY AND THERMALLY PERFECT GAS ES SPFCR‘A2120 
LIFLEO AND TS CHARACTERIZED BY THE FULLOWING VALUES, /EKO,iOXe21HSPER, A2140 


2CLFIC HEAT RATIO #2 2XeF 10.555X— LBHAND GAS CONSTANT 292K 9F 1065 92XetRLA2150 
38H(FT-LGF/LBM-DEG R)) 


REA2160 

FORMAT (1H0.10X-97HA HIKENTROPIC FLOW ES ASSUMED. THE GAS PRCPERTREAZL70 

LIES ARE INPUT AS TABULAR FUNCTIONS UF MACH NUMBER.) REA21 60 

FORMAT (LHOs 12x, LHM, LOK, LHP» L3X_ THA, LOX, SHRHO GL Ke LHT ep /20X oT LHILBFREA2Z190 

RAINOO2Z) AX SBHEFT/SEC 1 64Xe LIHILEM/FTO%3),5X,7THIDEG RIS) RE&2200 

FORMAT C1H 6 9XeF 7.35 2X0 FB, 39 5X0 F Ge 292K E1264 74K, FB. 1) REA2210 
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paw 


270 
280 


290 


300 
310 


320 


330 


34C 
350 
360 


370 
380 


590 


400 
410 
420 
430 
440 


450 
460 


FORMAT (1H0,5X,iL3HFLOW GEOMETRY) REAZ220 
FORMAT (1HO, 10X— LSHTRE FLOW HAS ¢f2e1Xe4SHPLANES OF SYPMETRY PASSIREAZ230 
ENG THROUGH THE POINT</1HOe 10X—3HK zpF L004 es AK 4HIIN) »4K,3HY eeF10.4RER2240 
ZolXeGHO lh), 4X_3HZ oo F104, 1X 4Ht ind) REA2250 
FORMAT (1HO, 10X, 64HTHE COMPUNSHTS OF THE OUTER NORMALS 10 THE FIRSREAZ260 
LT THO PLANES AREm/IHCeLOXsSHNXL Bo 2XeFLOcb Sk eSHNVL So2XeF1G06,5K yREAZ270 
25HNZ2 ze 2XeF LOOSIHO SIONS SHNK2 Se2KeF LOG eSKeSHNYZ 42h oF 106655X 9 5REA2Z280 
BHNZ2 *92XeF10.6) REA2290 
FURMAT (1HO,5X-15HNOZZLE GEOMETRY} REA2300 
EORAAT (1HO, 10%, TTHAXISYMMETRIC CERACLE-PARABOLA CCNTIGURED NOZZLE HREAZ310 
RAVING THE FOLLOWING PAR APETERS/100,10X,27HTHROAT AND AXIS COORDINAREAZ32Z0 
2TES/LHO LOX SHXE =x 9 F904%,5H (IN) SX,SHYC 2 eF 94% eK TENDS 4X ,5HZE = REAZ330 
359 F904e5H FIN) e/1HO, LOX, RBHCONTOUR PARAMETERS s/1HOs2OX,SHRT = ,F9.4REAZI40 
Sg DH CIND 4X eSHRC £9F96475H CEN) pSXe4HXE %9F904,5H LIN eX ,5HRE 2% ,REAZ350 
SFO eG eS IHD LOX, BHTHETAT 29F9.4%s6H (DEG) 4X%_,8HTHETAE 3,F9.496H (DEGIHEA2350 
6) HEA2370 
FORMAT <140, 10X, 7IHAXISYMHETRIC CIRCLE-LENE CINICAL NOZZLE HAVING REA2380 
LTHE FOLLOWING PARAMETEUS/IHOs LOX eGHRT 29F 9 0G 05H (EHD eX eGHRC 7, F9REAZIIC 
24054 CIN eGR eGHXE Be F9. GSH CIN} 24K y THALPHA £6F904e6H (DEGI} REA2400 
FORHAT (1HO, LOX, TOHSUPERELLEPTICAL CIRCLE-PARABGLA NOZZLE HAVING TREA2410 
THE FOLLUWING PARAMETERS /IHO, LOX, 27THTHROAT AND AXES COOROINATES/ LHORFA24 20 
2, 10X,SHXTY ™oF9.4,5H LEN) 9 4X_ SHXTZ 3eF92435H TEND eS ReSHYCT 3 9F9.4REA2430 
BSH CIN) oXe5HZCT 2eF 9.4 95H LIND /IHO, LOX, 22HX-¥ CONTOUR PARAMETEKS/REA2440 
4LHOSLOX,SHRY =,F9.4,5H LIND, 4Xs5HRC =o F90525H CIN) SX e5SHXE = teFIREA2Z450 
5 04e5H FINDS SxXeDHRE = <9F 904,5H (CIND/SIHO,ICXeSHTHETAT oF 92.4¢6H (DEGREA L460 
be Ske SHTHETAE =, F9.4e6H (NEGI/IHOs 210X,22HX—2 CUNTOUR PARAPETERS/LHREA24 70 
TO ¢ROX,SHRT == 9F 9.405 CIND OX eSHRO x9 F904,5H CEND SX,5HXE = to F9.4REA26U0 
BSH CEN SoX,SHRE = 35F90 4,5 CINI/EMO,LCXSSHTHETAT *9F9.4,6H (DEG) REA2590 


O4X,BHTHETAE =,F9.4,6+ (0EG)) HEALSOON 
FOHMAT (LHO, LOX, 25HSUPERELLIPTICAL EXPONENTS) REA2410 
FORMAT (1246) KEA2520 
FURKAT (1HO, 10%» 39HTHE COMPONENTS OF THE QUTER NORMAL ARE-/}HO,LOXKEA24 30 

Le DHNKL 22h ¢41006, 9X ¢SHNYL =o 2X oF LCebeSXeSHNZE =o2X oF 1006) KOA240 
FURMAY (€1HO, LOX, 22HNO PLANES OF SYMMETRY) RLA2450 
FORMAT (LHO, 10Xs G7HSUPFRELLIPTICAL CIRCLE~PARABOLA NOZZLE HAVING NREAZSOU 

10 PLANES OF SYMMETRY) REA25TO 
FURMAT (1HO,10X_ LGHAXIS CUURDINATE S/LHC, LICK, SHYCT £9F9,455t (EN) »420AZ5H0 

UX,SHZCT =6F9.495H FIND) REA2990 
FURMAT (1HO, LOXs 32HX-¥{ POSITIVE) CONTOUR PARAPETERS) RiLA2600 
FURMAT (4HO, LOK, 32HX-Y(NEGATIVE) CONTOUR PARAMETERS} REA2Z610 
FUKMAT (1HO, 10X_ 32HX-Z{ POSITEVE) CONTOLR PARAMETERS) REA2620 
FORMAT (LHO, 10K, 32HX—ZE NEGATIVE) CONTULR PARAPETERS) REA26 30 


FORMAT (1H, 20K2SHXT = oF90495H TEND GSK e SHRT «=e F904, 5H (IND 0 4X eGHREAZH40 
URE 89F9.GeSH CIN 4XeSHKE =f eF 96%, 5H CEND 2 SX eSHRE = Bef Se4e5t CENIREA2650 
227 1H0, LOX, SHINETAT &9F9.426H (DEG) eSXeCHTHETAE eF9,4e6H (DEG) REA2680 

FORMAT (1HO, LOX: 3GHSUPERELLIPTICAL EXPONENTS ~ QUADRANT ¢2XeI1} REA2670 

FORKAT (1HOe 10%2 SHXY] 2 9F9.495H LIND SX, SHEYE #8, F904, 4X eSHXY2 = eFOREA2ZOBO 
1.479H CIN} 9 4X, SHEY2 Ref De Gy OX, SHXY3 F924, 5H CIN)» 4X SHE YS = oF 9.4REA2690 
27 THO, LOX, SHKZE F960 Se5H CIND SSX ,5SHEZL Fe 904 e4XeSHXZ2 29F9.4 95H (REAZ7TOON 
SIND SSX eSHEZ2 BeF 9049 Xe SHAZ3 20F9,495H LIND GX_pSHEZ3 29 F924/1HU, LOREAZTIO 
SR eBHDEUXYZ =9F9,4,9H CENS®—E),4X,8HKDEDKZ2 25F9.%,9H LIN@#~1)) REAZI720 

END REA2730- 
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SORIGIN 8 
SIBFIC WALSB2 


Aan On OHMAMNOAGAAAOAAHAALR 


San NeAoaa 
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wood 


SUBROUTINE WALSB2 WES 
WES 
SSOOESOSHOESEESE SOOTHES SEEOOOES EOE SEEN SORTSESOSEEOOESEOOSESEECSS «=—LS 
WS 


INITIALIZES THE SUBRGUTINE WALSUB AND ASSOCIATED SUBROUTINES. HE HLS 
PARAKETERS OF FHE CIRCULAR ARC AND PARABOLIC CCHTNURS ARE CALCULATECKZLS 

THESE PARAMETERS ARE DETERMINED FROM THE SNPUT VALUES FOR THE HLS 
THROAT LOCATION, RADIUS AND RADIUS CF CURVATURE, THE ANGULAR SLOPE wis 
AY HE TANGENT POINT BETWEEN THE CiaCLE aNO PARABOLA AND YHE SLCPE ATHLS 


THE NOZZLE EXIT AND THE COORDINATES OF THE NOZZLE EXIT LS 
«LS 

BOCOSS SEE E EL ISSS SEEHEES OOCHSSSESEOECESSSESOLHOEDHESSSETESSESEEEE = OLS 
IN COMMON WITH OETERN HLS 
MLS 


COPMON /COOF IS XX14) RR 5G be AKI4)  X704) VT(4) pANI4) 9 BN(4) CNIS) ONCHES 


84) 0EN14) AAV (4) 5 BAY( 4), CAYV(4) sABYE 4) ec BBY(4) pCBEYV645 eAAZ(4} pBAZ(4) CWLS 
24214) 9 ABZ(4) 9 BB2 (4) CBZ CSI AYTESTE GS AZTESTI<) sBYFEST IG) -BZTESTIGIMES 
JoSVHNY (4) HLS 
WES 

TO wALSUB WES 
wis 

CO*MON /TRANS/ YIRAN,ZERANNTELL WLS 
WLS 

IN COMMON WITH MAEN PROGRAM WLS 
WLS 


COMMON /MALSBS VOsZO,XOL4)oRT149 pREW4) gS THT (4) ( XE1S) pVECS) g THE (4) gAWLS 


ESYVMAY y XV164) EYL (4) 0 X¥2 04) ,EV 204) ¢ DEYZ(4) ,EVSE4) XZ104) vEZLIS 1 eXZ2WLS 
20479EZ2(4) ,0EZ2145 55230 4) XV 314) ,X23(4) WLS 
GO TO (10930070), NSYMMY BLS 
WES 

THE FOLLOWING {5S FOR AN @XESYMMETRIC NOZZLE lS 
WLS 

CO 20 12194 wis 
SYpmMy¢1)=2.0 WES 
AKSLIERTCLIERCILS WLS 
wis 

INPUT FOR AN AXISYMMETRIC CASE utS 
WLS 

CALL CPMATE CXOCLISRTELY SRCCLIs THY CL)  XELLI gS VECL) oTHELE DeXTULISYTEWLS 
ULV oANC ED BNCL)SCNILD SOWCLDSENC I) WLS 
GO 10 90 WES 
HLS 

THE FOLLOWING {3 FCR A NOZZLE SYMMETRIC ABOUT THE Y AND Z AXES. WLS 
#LS 

CONTINUE WES 
AKCLIARTCLIe¢RCC1) WES 
AK(2)2°T(24¢RC{2) WES 
WLS 

CALL SPHATE TO DETERMINE CONTOURS aLS 
WLS 

CO 40 {xle2 #25 
CAL. CPMATE CXOC TDR ELTI RCC LD, THICED SXECL Pe VECE De THEC ED oXTU1) WLS 

1 YT CS) CANCE DD BNET) »CNC LI ,ONCE DSENCID? WES 


15] 


£90 
500 
510 
320 
330 


Aeanseatencnue onsets nt 


ner oemenastanaNareeOeTLLIMATNSSE SOTERA Srmsnarehtne —ebabennpmenaevenneetyMSDOSEDDDL. ‘per ennonepoeeti MAEM KKB 


WAersmne bsavanneenstonet peated koeupasitecagycstoeze 


Pretheoaeas eegsionentenme 5 


ee + eens gated seem N 


49 CORT ENUE WLS 540 
c WLS 550 
€ EQUATE PARAMETERS FO GUARANTEE SYMMETRY ABOUY THE Y AND Z AXES wis 550 
c WLS S70 
CO 50 f21-2 WLS 58¢ 

Jele2 WLS 599 
x0{5}=*£04 1) wis 600 

RIL SRT EE wiS 610 

RCC SIORECE) “LS 620 

THT isda THTOT) KLS 630 
XE(S)2XE¢ 7) WLs 640 

VEC II©VECL) wiS 650 

THE (3) eTHECT) WLS 660 

ATE SRT) WLS 670 

WVisvevt 1) WLS 680 

ANC SP8ANCE) ¥iS 590 

BNO S)2ENTI} wiS 706 

CNHI SdoCNIE) wis 710 

ON( 5)#ONC 1) WLS 720 

Ent SdsENt £) wes 730 

AK( SP" AKOCE) aLS 746 

50 CONTINUE WLS 750 
c WLS 760 
c QUADRANT 2 us 7/0 
s, “LS 780 
hel wis 790 

fat WLS O00 

J#2 wes 8c 

CALE FESS (XOCLI RTC TIARCIE Pe THICLYKECL) g VECL ID, FHECE) , XOCS3 RTE SIWLS 820 
VeRO05) THEFT ID XEC SD, VEC S39, THE(S ) oSYAMYING) WLS 630 

CALL EXPO (XVLINI XZ LOW DS AYZEN) oXZ2EN) oXVSEN) cXZ3EN) SEVEIN) SEZI(AIWLS B40 
DeEVZCN)D SEZZUN) sDEYZ(N), CEZZUN) SFYZ UN) SEZIIN) eABYON) eBBY IN) eCOVIN) gHES B50 
2AAVEN) sBAYING sCAYIH) 2ADZ1% 343882 (N) eCBZIMN) AAZIN} pBAZCN) CAZ(%) BYTHLS 860 
BESTON) pAVTEST (2) -BLTEST (HD AZTESTING oXCOLD oXCUS) oXECED Ge XECS) she SYPHLS B70 

Sev ta wes aso 

c HLS 890 
c EQUATE THE QUADKANT PARAMETERS wLEs 900 
c WLS 910 
CO 60 N=2,44 Ls 920 
KVLONDERVECL? WLS 950 
K2RON}EXZ302) WLS 940 
AV2thdeKy 2029 WLS 950 
KE2¢HdeRZ208) WLS 960 
RYZCNIERY SCL} WLS 970 
XZ3EM)2X2301) ¥uLS 960 
EVitNISEV it 1} WLS 990 
EZLINDZEZ USE) wi.5 1000 

EYZ2IND SEY 295) WLS1010 
EZ2(NI=EZ 211} wiL$1020 

DEY 2K =DEV 201) WLS 1030 

DEZ 21ND EDEL 201) WLS1040 
EYS(NTSEY302) ¥L$1050 
EZZ(NISEZ 301) WES1060 
ABY(N)eABYO1) WLS1070 

Bey (N)=88YCL) WLS 1060 


COVIN=CBY¢??} 


WES1090 


mas mang So 


mer sted, 


BAY (ND sAAYtL) WLS1100 

BAY (Nd @BATEL) WLS1110 

CAY(N} sCAY(L) wL$1120 

AB2 ()eaBZ11} WLS1130 

BBi (NI =BB201) WLS1940 

CBZ{N}=CB8201) wiLS1150 

AAZIN) #AAZ(1} WLS1160 

BAZ(NISGAZIL) WES1L70 

CAZ(M) 2CA2{(13 kLS1180 

BYTESTind =BYTEST(I I) WLS1190 

AYTEST(N} SAYTEST£ 1) #LS1200 

BLTESTINIMBZTEST( 2) MLES1210 

ALTESTINDSAZTESTE 1 wiES1220 

SYMRY (NI 2SVAMY(1) wiLS1230 

60 CONTINUE WLS1260 

GO FO 90 WLS1250 

c WLS 1260 

C = OM-SYAMETRIC CONTOUR whS1270 

c WLS1280 

70 CONT INLE WL$1290 

COU 80 i194 #451300 

AKC LIARTCEIRCID) wi$1310 

c WLS1320 

c GENERAL INPUT TO DETERMINE THE FOUR CONTCURS WLS1330 

c RL51340 

c CALL CPMATE TO SPECIFY CONTOUR CONSTANTS WwLS1350 

; c WLS1360 
See CALL CPMATE EXOT sATILI ROC DI, THTT I} eRECE Pe VECLD oS TMELI Do XT(13 WLSL37C 
ae t VIET), ANCE), BNL) CHEE ONL T DEMIS? MLS12389 
pres 30 CONT LXUE 2251390 
c WES32400 

a £ THIS SECTICN COMPUTES THE PAVAMETERS NECESSARY TO SPECIFY THE #LS1410 
as c EXPONERT (AS & FURCTIGY OF XK} FOR EACH QUADRANT WLS1420 
c ¥LS1430 

c QUADRANT { WLS1440 

a ¢ WLS51450 
a Nel WLS 2460 
tee {ol #LS1470 
ae Jjs2 L514 80 
at CALL TESS (XQCG) oATLU)g RELED, THTAT  XECE)  VELI9 THE CL) XO IF ARTA SIWLS 2496 
eee LeRCU SE THT L SD XE1595 VEC S) o THEL SS sSYRRY IN? 5 i$ 1500 
eae CALL EXPO (MYRIND XZLEWD XV 2CH) AZZEUE oAVSIND eXZZING SEVIONS CEZICREWLE ISIN 
peer LeEVY2¢N} 5EZ20N) gGEVZEN)s DEZZ6N3. EV3IN) pEZ ICN) pABY IM) eBBV(N) SCBOVIN) gWLS1520 
es ZAAYIN} sBAY (81s CAVIN] .ASZ1N),8BZ(N) sCBZING 9 S42 (i BAZIN) (CAZ(N2 SSVTHLS 1530 
i SESTIM} pAVTESTING -BZTEST (CW) gAZTESTIND XOGTS XCES) oXECT) XESS) No SYMULS 1949 
: 4PY{N)) HLS1550 
c WLS1560 

c GUADRANT of I WLS1570 

c WLS 1585 

hs2 uLS1i590 

f=? WLS1600 

J$=2 WLS1610 

CALL TESS (CXOCED RICHER, RCE SEs THTCE sXEUES VERT oS THERE e ROT IT RIC SSULS 1620 

LACE 9) eTHTE SI XELS2, VES Ide THELS) oS YMMY EK)? HL S1630 


CALL EXPO CXVLINDeXZ LCR RV ZEN AZ SCN) NVF(H) oXZSENIEVION) EZ. bP SRLS 1640 
LeEV2TKS -EZZ0N) DEVZ(M), DEZZIND FYSIN) EZIING cAB VIN? BAY EN) sCB TIN) obi S1650 


ZAAYIN) eBAYCUMD cCAYEN) eABZ(N) ,BBZ CN) gCBZ iti) pAAZ (MH) BAZIN) pCAZIN] -BYTHWLS? 560 
SESTING eAYVTEST (IN) sBZTEST (CN) eAZTESTCM) e XOGE) eXO0S) SECT) RECS) ee SYMRLS 1670 


aa at: SB) WLS1689 
& eL$1690 
c Guapranr 111 4151700 
c WLSITIO 
axy WLS1720 
I=3 wWLSi730 
304 WLSITSS i 
CALL TESS EXOCTI RTL 1), ACLT THIET XECL De VEEL g THE (2) ep XOCS) RTI SIWLSI750 i 
LeRC(I) THT ES) KES) VEC I), THE CS) eS YMMY(N)) WES176C 
CALL EXPO CSVLCN Ie XZ UG De XY2E) oXZ20N) gXYSIN} @XZ3IN) SEYLINS gEZIGNIWLS1770 | 
LeEXZIME eELZ(HS oDEV2¢N Is DEZ2EN) SEYZ(N) <EZZCN) oABY(N) sBBYIN) pCBY(N) gWLS1789 i 
ZRATIN) BAYER) eCAYON) ABZ its) p 882 (N) eCBZIN) p AA 6H) BAZ 1) eCAZ(N) sBYTKLS1790 i 
SESTING sAYTES TIN} gBLTEST iM) SAZTESTIN) oXOCT) ROC S) XE CT) RECS) ete SYPWLS1HO0 : 
SPY tN) 2 WLSIBLG 
c wWiLS1820 | 
€ TUADRANT 8 8=S¥ WLS1H30 i 
¢ WhS3H4Q i 
Any tuil$1859 
ix} WLS1B60 
J=4 HLSIBTO 
CALE FESS (SOCEP RTL SD, ROOT g THT CE 2 XEC1) o VE C2) 2 THE (125X004) @RT( JULES 3880 
LeRCGd)d  THTLSD LEC S29 TEC I) 4 THEC I) SYMMY IN) ) MLS 4890 
CALL EXPO CKYLIG Ye KZ LEWD XTZIN) oXZ20N) oXYZCM) oXZ3EN) PEVLOND SEZLONIWLS1900 
LsEV2E% 1 ¢EZZ7%3 SWE L21 AN) DEZZ0N) gEYSUN) ¢EZ3 (MH) <ABYON) gSBY6M) SCBYIN) gW1.$1910 
DRAY(E) -BOTI1) CAIN) 2A Z (6) eBBZ (ta) gCBZ() eAAZ 0M) BAZ U2 eCAZIN) eBYTHLS1920 
BESTING RYTEST(AD eBZTESTING gAZTESTIND gXCUL 2 gXCEI) AXE CT) e XEL IS) gh se SYPHLS1930 
Srey #LS1940 : 
£ #LS1950 ° 
c SET NSYHRY CQUAL ID TWD WLS1960 
£ ‘ WLS1970 
ASYRRY 22 #L$1960 ; 
CT) TTRANSYG ¥LS1990 
rt RANZ29 #LS2C00 ? 
NTELL SS YEMY WLS201u 
2O 100 2554 WLS2020 
R£C452EGC 7) ¥L$2030 
RAL EMRCE I) 4.52640 
180 9 CONT SNUE WLS2050 
RETUAN wiLS2060 
END wLS2070- 


ye4 


Ae em ee ee 


SEGETC TESS 


SUBROUTINE TESS (XOTyRTY eK CVs THEY. KEV» VEN es THE Ta KOZ RV ZeRC Le THTLy XEVES 


L2-YEZ 5 THEZ SOT) 


CHVERMALHS FT OLESES KECK OSASSEOSE HLS LYS GS GSRIIRGSTLOKSESAHHSVSTL SEE 


TESTS YO SEE [F THE CON7GUR PARAMETERS ARE EQUAL GR ADJACENT QUAD- 
RANTS, THE PARAMETERS 4RE ALSU TESTED TO OETERMINE TF THE 
CCATOUR LS AATSYMMETRIE 


RISORIGESSE AS VAKS FAVE OTS SHKKRSSESSE ESSE SAS HESS IE SSI LKESHE AGS SS SS HSS HSS 


HAK AMMA AM 


TF (ROY.NE.X0Z) GO TO 10 
EF CRIVOME.RYZ} 30 FG LO 
£F URCYNERCZ) GO TO 10 
fF CTHTYNE.THTZ; GO TO 10 
EF ({XEV«NESXEZ! GO TO 19 
8@ (VEV.NE.YE2} GO TS 10 
fF (THEY NE. THEE) oD 74 10 


THE QUADRANT HAY BE ALTSYMMETRIC 


AA 


SORSL. 
GO TO 20 


THE QUADRANT §S NOT AXISYHMETR IC 
§O0T=2- 


RETURN 
FND 


aac OOM 
aa 


TES 
TES 
TES 
FES 
Tes 
TES 
TES 
TES 
TES 
TES 
YES 
TES 
TES 
YES 
TES 
yES 
TES 
TES 
Tés 
TES 
TES 
TES 
THS 
TES 
TES 
TES 
TES 
TES 


Sti Te where ie a eee ee a erent ae — SaipiSaiin yp 8 Ss Site sy etek haw ed +e ee atic 


ARATE A RSE HE 


SIBFIC EXPO 


SUBROUTINE EXPO (XY1,XZ LeXV2eXZ2,X13,XZIEVI ELL eEV2,222eDEYZ2,DEZZEXP = 10 
ig 1,EY3,EZ3sABY s BBY ,CBY sAAY BAY sCAY ABZ, BBZ CBZ pAAL BAZ cCAZ + BYTES* pAYEXP 20 


- Z2TEST e BZTES Ts AZTEST eXOVy XOZ XE 2 XEZ 2 NQe SYHOD) ExP 30 
. Cc EXP 45 
Cc OSESSTHHEDT EO OKSE STESESE SHSEOSISSHS HELL SSSESHOLOHELGEL 2445608 SR Ex? 50 
c EXP 60 
Cc EVALUATES THE CONSTANTS FOR THE “UNCTIQM USED TO REPRESENT THE EXP 70 
€ Xi VARIATION OF THE EXPONENTS EXP 80 
Cc ExP 90 
Cc BSVEREESESS ESET EHERIOGSSSESHS SESS TELS SSSRERSES HIVE SSSI SRE NESS Exp 100 
Cc EXP 110 
Cc TO DETERM ExP 120 
c Ex? 130 
COFHON /AIOLE/ XY2164)eXZ25(4) EXP 240 
NSYHQO=SYHQO EXP 150 
@VTEST=2. EXP 160 
AVTEST=2. ExP 170 

. BZTEST=2. EXP 180 
ALTEST=2. EXP 190 
KLZZSONCVEXZ2 ExP 200 
RY2TENQI=EXY2 Exp 210 

c ExP 220 
is IF THE PARAMETER -~-TESTsl, THE CROSS-SECTION £5 ELLSPTECAL. FOR EXF 230 
Cc SYM. CASE, ITERATIONS ARE NOT NECESSARY. EXP 240 
c Exp 259 
(TF (EY2.EQ.2.) GO TO 40 EXP 260 

10 TF (&22.EQ.2.} GO FO 20 EX 276 
GO TO 80 EXP 280 

¢ EXP 290 
20 {fF (EZI.NE.20} GO TO 3¢ ExP 300 
BZTEST=1. £xP 316 
CEZ2=0. EXP 320 

30 TF (623.EQ.2.) AZTEST=i. EXP 330 
ce 0 60 EXP 340 

C EXP 350 
40 fF (EYIL.NE.2.) GO TO 50 EXP 366 
BVYTEST=1. ExP 370 
OEY2=0. EXP 38¢0 

50 TF (EV3.EG.2.) AYTESTe4l. ExP 390 
God TO 10 Ex? 400 

c EXF 410 
60 TELLABYTESTSAYTESTSBZTEST#AZTESTSFLOAS (NS YHOG) Exe 420 
c EX? 430 
c IF THE --TEST YALUES ARE Ait ele, THE CROSS SECTICN ES ELLEPTICAL.EXP 440 
Cc EF [IN ADDITION, NSYMQO=L LEROCM FoSS} THE QUADRANT MUST SE AXESYH. EXP 450 
c EXP 460 
NSYMQD22 ExP 470 

IF sTELL.EC.1o) NSYHQD=? EXF 480 

Cc EX’ 499 
c COEFFICIENTS FOR THE EZ FUNCTION. EXP »GO 
Cc EXP 510 
£ BEFCRE COEFFICIENTS EXP 520 
Cc EXP 530 
CBOZ=CEL2~EZLADEL 241 XZI-KX2Z2)5- 2.9K Z2SKZI~KZ1L002-X2Z5H825 EXP 540 
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pangs SO reenter 
cattle sete NY Mihalis serine Selina wit 2” aeltriate Re ALA ete aie totaal Reais! AR telat cram, Waele ental : 


Aettalenareaitae elt 20 


A tet suet eel bhatt ot leah ecu atiariatin 


SEROAAN AAG 


av 


BBZ2-2.*XZ2eCBZ+4D0EZZ 
AGBZZEZ1-BBZSXZL-CHZEXZ1 S42 


AFTER COEFFICIENTS 


CAZe ( E22-EZ3 +0E2 20(X23-XZ21)/(12.*X22¢X23-XZ3%%2-X22942) 
BALls~2,*XZZ9CAZ+0EZ2 
AAL#EZ 3-BAZ €XZ3~CAL¥X23 #82 


COEFFICIENTS FOR THE EY FUNCTION. 
BEFORE COEFFICIENTS 


CBY<(EV2-EVL DEV 20(XY1I-XV¥2) 5/02. EX 12EXVI-XV1L9S2-XY2962) 
BUYs-2.*XY2*CBY+DEY2 
ABYSEY 1-BBYSXV1-CBYSxy¥i #2 


AFTER COEFFICIENTS 


CAY=( EV2~EY3 eDEV 2 (X¥3~XY2))/(2 oEXY2EXY3I~XV3882~XY2062) 
GAYs~2 oFXY2*#CAY*DEV2 ‘ 

AAYREYV 3-BAYEXY3-CAY *XY3 #42 

RETURN 

ENO 


EXP 
EXP 
EXP 
ExP 
ExP 
ExP 
cxP 
EXP 
Exe 
EXP 
EXP 
EXP 
EXP 
EXP 
EXP 
EXP 
ExP 
Exp 
EXF 
EXP 
exP 
EXP 
EXP 
EXP 


550 
560 
570 
5860 
$30 
600 
610 
620 
630 
640 
650 
660 
670 
640 
690 
700 
710 
720 
730 
740 
750 
760 
77G 
780~- 


at gee een Nemeuemeerie winnaar eed meme Sear + 


SEPA MO Lb MER mE sem EY nie 
‘~wievsr Soest? eats Gabo OSONARSAALALERASROOMARSERD Soot tenet MPOescenanis need Desteee 


I 
i 
E SIBFIC CPMATE ' 
: SUBROUTINE CPMATE THORT RCo THT, XEy YEs THE 2 XT, VT2AH4BNSCN ONSEN) CPM 10 j 
2 Zc CPK 20 ; 
E C *SOee soa seuscvessasres seceasceeteseensce secoesesee st oesvesees Chm 30 j 
‘ c CPe 46 i 
: C DETERMINES THE PARAMETERS 3¢ THE EQUATIONS FOR tHE CERCLE~PARSBOLA Cen So 
3 C  -C&ntTours Cem 40 } 
. Cc CPK 76 i 
C *OCtOe SESS VESD REEDOSE SHE SEKT DEES SEREREERCDEZESLESORSCEGHOOS CPs 60 t 
c CPR 90 ; 
OIKENSION INOEX(5), A(5,a) Cpr 109 ‘ 
PE33.1415926536 “PM 120 
THES THESPI7 1380, LPM 120 
THT=THT*P2/186, Creu 230 ; 
5 ST*TAN(THT) CP” 140 i 
‘ SE*TANGTHE} CPM 156 } 
i AK=RT¢RE CPM 160 i 
Cc CPM 170 i 
: c FINO THE POINT OF TANGENCY cpr 180 
‘ Cc Crm 190 i 
. XT=H¢ST*RC/SORT( ST 90261.) £PM@ 200 H 
; YT=RT #RCSCL.-COSETHT )) CPM 210 : 
: IF (THE.EQ.THT) Go TO 10 Cer 220 i 
: & CP 230 1 
Cc FIND 3RO PCENT GN PARABOLA CPx 246 i 
Cc CPM 250 ! 
NO=(VT-YE#SESXE~STexXT}/ (SE-ST) CPM 260 | 
IF (XO.LE.XT} GO TO 20 CPx 270 } 
IF (X0.GE.%E} GO TO 20 Cm 280 ; 
Ba YO27T +ST*{XG-xT) Cem 290 i 
fc If (YG.GT.YE) GO TO 20 CPM 300 : 
é c CPm 310 ! 
i Cc USE THE TANGENT POINT AND EXIT POINT 74 FIEND THE MIDDLE POTAT OF CPH 320 i 
Cc PARABOLA. TEST ON THAT POINT, CPM 330 
’ ; c CPM 340 i 
°: 2 XH2(XT#XE)/2, CPM 359 i 
— YHE(YT+YE)/2, CPR 340 ' 
be XM=(XO#XH)/2. CPR 370 : 
. YM=(VYOCVH)/2. CPw 380 i 
; c CPM 390 ; 
‘ Cc SET UP THE EQUATIONS FIR FLYE KNOUNS SINCLUDING TaNGENCY ANGLES)» CPM 400 i 
Cc FEVE UNKNOWN COEFFICIENTS OF GENERAL PARABOLA. CPM 410 
c CPM 420 
ACL Ly sxeeve CPM 430 j 
Ali,2} =xEee2 CPP 440 j 
ACL, BIsVE CPM 450 i 
Abies) =xE CPH 460 : 
; AtdsSd=2, CPM 470 : 
: Ath,&)s-yEee2 CCPH 440 : 
Ai2,Liaxteyr CPM 490 i 
BUZ,2)=xT 992 CP# 500 ; 
Al2,3)=y1 CPM 510 
ML2,4)=xT CPP 520 
Rl2S)21. CPM 530 
Al2,6)2-v¥ee2 CPP 340 
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Maas DUE STE sto slDRinesroa RHEL SCA HELUR AAsReseboek sees nrmncecbiastabtbesaoneattstnetaraneiss 


AG3 LI sUNcyy CPm 550 
A(3.2) =xuesz2 CPM 560 
A(3e3) 94 CPM $70 
3(39422xXK CPM 580 
AlC3e53=3. CPM 590 
A355) u-yHse2 CPA 600 
Athebla(YEsxesse) CPM blo 
41492) 22, 9xE€ CPH 620 
At4,3)25€ CPM 630 
41494) 21, CPM 640 
444,51} 20, CPY 650 
Al4eb) an2 SVESsE CPM 660 
ACSeLIO(YTOXTesy) CPM 676 
ACSs2)e(z aye} CPM 680 
Al5Ss3}"57 CPM 690 
ACSe4)21, CPM 700 
A65,5)20, CPw 710 
A(5.6} 2-2, eyTesr CPM 720 
CALL CROUT (a,5, bebeCel NDEX) CP 730 
ANZAC IE O13 CPM 740 
ON=A( 2,1) CPR 750 
CN*A(3,1) CPM 760 
CN@A(4,1) CPr 770 
ENzA(5 615 CPH #69 
RETURN CPr 790 
c Cc? 400 
c THIS £3 THE SOLUTION FOR A CONICAL CONTOUR, CPw 410 
¢ CPM 420 
10 VE=STOCXE-xz )eyy CPE 430 
AN=0. CPM 840 
BNz-1, eSTea2 CPP 850 
CNneQ, CPM 469 
ON=2.*STs(STexy~yT) CPF gto 
ENS~1. *¥T $9262, 8YT#S TeK T-(xT#92 195 Te92 Cee san 
RETURN CPY 890 
20 WRITE (6,30) ce 900 
S¥ap Cer 2}0 
€ Crm 920 
c Cpr 930 
30 FORMAT (1HO0, 10x, 103Hsse0 se€RROR STOP. INPUT DATA HAS RESULTED IN ACHM 940 
IN EMPROPER SOLUTION FaR PARABOL IC WALL» CHECK ENPUT Seecee: CPM 950 


ENO CPR 960- 


fart besten eerie anasnte 


SIBFIC CRout 
SUBROUTINE CROUT {A,NoM NN, DETERM, INDEX) cro 140 
C cru 20 
Cc 90 F858 $S938S$SSTSS SLSR OUS SESSEOESS SSESIONE SES SCESSHSEHHSSSESESSESES CxO 30 
Cc cRo 40 
C STAMDARD CROUT REDUCTION SUBROUTINE FOR SOLVING SYSTEBS OF LINEAR CRO 50 i 
C EQUATIONS ~- USED BY WALSS2 ROUTINES ONLY cTRN 60 
c cro 70 
Cc 9OOSS5SEOSSEEOOSESOESES HOE SESSEEESE SSS SASHKSESOSSOSIGSHSESSTOHSSSSSES cro 80 
c cro 90 
CIMENSION ACUN,NN), IADEXEN) CRO 100 
CET=1.0 cao 110 
JZ22N-1 CRO 120 
Janel CRO 130 
CO 10 EalyN CRO 140 
10 INDEX( F3ef CKO 130 
CO 180 Jal,n Cro 160 
D0 100 fleleé CRO 170 
sus20.0 CRO 180 
LeINDEXCLL) cro 190 
IF (12-J) 20,6060 CRO 200 
20 1€ (11-2) 3025030 CRO 210 | 
30 LLLL=TI-1 CRO 220 
CO 40 K=1,tttL CRO 230 } 
TOPPRINDEX(K) CRO 246 
40 SURSSUMFAL 1K) SAC EPPO, 3) GRO 250 
50 ACI, JI=4AET, J)-SUBI/ALIZIDS SRO 260 
GO TO 100 CRO 270 
Cc CRO 280 
60 IF (3-1) 70290, 70 CRO 2790 
710 LLLL=J-1 CRO 300 
C0 80 KzL,tLet CRO 310 
LPPP=INDEXIK) CRO 320 
80 SUM=SUM#A( 12K) SAC TPPP, J) CRO 330 
90 Alle JS)=ACT, 0I- SUM CRO 340 
100 CONTINUE CRO 356 
IF (J-N) £10,140. 18u CRO 360 
Lio LEIWDEXt J) CRO 370 
KAsL rRO 380 
HIGH=Atts J? CRO 390 
K220 CRO 400 
OO 130 E=J5euZ CRO 410 
JCzTS1 CRO 420 
L=INCEX(JC} CRO 430 
1F CABSCHEGH)-ABS (AL eJ))) 220¢130+130 ccU 449 
120 HIGHSA(L J) CKO 450 
KASL CRO 469 
KZ=1 CRO «su 
130 CONTINUE CRU 480 
{Ff (KZ.NE.O) DET=-OET CRO 490 
IF (ABSCHIGH)-1.E-05) 140,140,150 CRO 5U0 
140 WRITE (6.320) KIGE CRE 510 3 
150 00 160 X=1,N CRO 520 3 
KK3¥ CRO 530 3 
IF CINDEXUCKI-KA) 160,272, 160 CRE 540 i 
i 
a 


160 CONTINUE CRE 550 
170 TTEMP=INDEX( J} CRO 566 
INDEX(J)2 INDEX(KK) C&C 970 
INDEX{( KK) 1 TEMP CRO 580 
180 = CONT ERUE CRO 590 
IF (4) 190,280,190 CRO 600 
1990 L=N~1 CRU 610 
DO 279 J=Ja,nN CRO 620 
hewd TRO 630 
DG 200 K=leN CRN 640 ; 
IF (ABS{AGKsI))-0.0) 240,200,240 CRO 650 ; 
200 CONTINUE CRO 660 i 
12 INDEX(N) CRO 670 I 
1F (ABSEALIZ,N)I-1.0E-02) 220,220,210 CRU 680 ; 
210 WRITE (6,330) CRU 690 i 
C Ty 310 CRO 709 : 
c CRO 710 : 
220 ACI2 95385-0600 CR! 720 
tZZsiNDEX(N~-1} CxO 730 : 
IF CABSIACI2Z2Z NM) )—1. 06-04) 230.2309 24C CRO 740 
230 AC112,5322,50000 CRO 750 : 
Lee2 CRO 760 | 
240 GO 260 Ismtiet CRO 770 i 
SUM1=0.0 CRO 780 i 
{isN-1J CRO 790 , 
Se INDEX(EL) CRO 800 j 
LLsllel CRO #10 H 
00 250 KelteN CRO 820 ; 
{Ps INDEX(K) CRO 830 : 
250 SUML#SUMIFA( Ts KISA( IP. J) CRN 640 { 
ACs JSS2A(1,59-SUM1 CRO #50 ' 
260 CONTINUE CRO 660 i 
27@ «CONTINUE CRO w70 { 
280 CETERK=1.0 CRO 480 i 
CO 290 121, CRG 890 . 
Ke INDEX(1? CRU 900 
290 DETERM=DETERHSALK, 1) CRO 916 ’ 
CETERM=DETERMSDET CRE 920 ; 
CO 300 I=1,N CRU 930 
00 300 J=JA_,NN CRO 940 
Ka INDEXCE) CRO 950 
L=J-H CRG 960 
300 AcLeh ZAKS) ckO 970 
310 RETURN CRO 980 
c CKU 990 
c CRO10CO 
320 FORMAT (48HOTHE PIYOT ELEMENT IS LESS THAN 1.€-05 VALUE IS E20-.8) CRN1010 
330 FORKAT {59HO ONLY SOLUTIOM 1S ZERO VECRN1020 
icTOR) CkO1030 


ENO CROI040- 


ax sontath anager RE TEE Bt 


siBFYC AROS62 


SUBROUTINE ARDSB2 ARS 10 
c ARS 20 
Cc FVASSHSSSEHSH SSE SSIES SES SESHESHE SESE SHEHESTSSSSESHTEFOSSESESDISCS ARS 30 
c ARS 40 
c PERFORMS INITIALIZATION CALCULATIONS FOR ARQSUB -- CALCULATES GAPRPA ARS 50 
C FUCTIONS FOR CONSTANT GAMMA CASE AND FITS CUBIC SPLENES FOR TABULAR ARS 60 
c DATA INPUT FOR EQUILIBRIUM HOMENTROPIC FLOhn ARS 70 
c SUBROUTINE SPLIRE 1S CALLED ARS 80 
c ars 90 
Cc OO SSESESS SES EEEESEESEISS VICHEREESEEESESS OOS EEESOESIOG DEES ESECHE &RS 160 
c ARS 110 
REAL ATAB ARS 126 
CGRRON /AROL/ GAMMA, RGAS,GAM1, GAK2 GAN 39 GAM4 eGAM5 oP TABI 3G} pATCI4,3ARS 130 
10) ,ROCO(4, 30) eTCOl 4s 30) »QSCOl 4, 30) »NFOE aNTHERR, { sPSIURC ARS 140 
COMMON /ARO2/ ATABL30e2 ) sRUTABE 30, 2) 5 TTAB( 30923 eQSTAS(3092) 2P7TABI3ARS 150 
10) ARS 160 
COMMON /CONST/ Pi,ORAD, BTU,G,5TU0G ARS 170 
AFOE=L ARS 180 
Cc ARS 190 
Cc ASSUME TABULAR INPUT IF GAMMA $5 LESS THAN ONE ARS 200 
c ARS 210 
UF (GARMA.LE.1.0) NFOE=2 ARS 220 
GO FO (10.20), NFOE ARS 230 
Cc ARS 240 
Cc CALCULATE GAPMA FUNCTICNS FOR CONSTANT GAMMA CASE ARS 250 
c ARS 260 
10 GAH3=GAMMA-1.0 ARS 270 
GAK2= ( GAMMA¢ 1.0) /GAN3 ARS 280 
GAM5*2.0/{GAMHA4+1.0) ARS 290 
GAHS2GAN3/2.0 ARS 306 
GAML=GAM3/GAPMA ARS 310 
RETURN ARS 320 
c ARS 3306 
c Fly CUBIC SPLINES FOR TABULAR INPUT CASE ARS 3490 
c ARS 350 
20 OO 30 f2#1,NTHERM ARS 360 
Cc ARS 370 
Cc CCHVERT UNITS ARS 380 
€ ARS 390 
PTABLE ) =P TABI 1953144. ARS 400 
ROTAB(NTHERM, 2) 2 (ROT ABL NTHERM, £ S-ROTABI(NTHERM-1,1)3 /DELP ARS 540 
ROTABE I, 2 PeROTAB( 1,1 3/6 ARS 410 
QSTASC Es LIRIMTABC TDG ATABL Ee 1) )S%2 ARS 420 
Cc ARS 430 
€ TEST FOR END QF TABULAR DATA ARS 44C 
Cc ARS 450 
1€ (E.FQ.NTHERA) GO TO 40 ARS 466 
30 1F (MTABCT).GE.MTABLI¢L)) CALL ERRORS (14) ARS 470 
40 CELPaPTABL2)-PTABEL) ARS 480 
ROTAB(1,2)=( ROTAB( 2: 1)-ROTAB( 1,13) /DELP ARS £90 
ATAB(1¢22=(ATAB( 2, 1)-AT ABELL) /DELP ARS 500 
CSTAB(1Le2)=(QSTAB( 2, 1)~QSTABiL, 1)} /DELP ARS 510 
THABLLeche(TTAB(2,L)-TIAG(2,1)9/DELP ARS 520 
CELP2PTABINT HEARN )-PTABL NTHERH-1) ARS 530 

162 
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ATABUNTHERA, 2)=( ATAB(NT HERM, 1 }-ATAB(NTHERH-E 51) )/0ELS 
CSTABUNTHERN, 2)3 (QSTABENTHERM» 1 )-QSTAS(NTHERM~1 513) /CELP 
TTAB( EE THERMs 2)0 TTAB (RT HERM,s 1)-TTABINTHERM—191) 1 /DELP 
CALL SPLINE (NTHERM, PTAG,ATAB,ACO) 

CALL SPLIHE (NTHERM, PTAB,ROTAG, ROCO) 

CALL SPLINE (NTHERM, PTAB.QSTAB,QSCO) 

CALL SPLINE (NTHERM, PTAB,TTAG,TCO) 

{=2 

RETURN 

END 
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ARS 
ARS 
ARS 
ARS 
ARS 
ARS 
ARS 
ABS 
ARS 
ARS 


250 
569 
570 
580 
390 
600 
610 
620 
630 
640- 


7 o P— ae Se Sea 
E 
Ez 
E 
tg 
H 
ZORIGIS 8 
SIBFTIC fysuar 
SUBROUTINE *¥suRrF fvS 2s 
c ivs 20 
Cc $08 SSOSSSOSSESTELT SS OSS OOSSSSLT SSE OSSSESESSESSOVSSSSSSSHISSSS {¥S 30 
c tvs 40 
c THE INE TIAL VALUE SURFATE KETHORK OF POINTS IS CONSTRUCTED AND THE I¥S 50 } 
C COCRBINATES ARE STORED 14 THE ¥ AND Z ARRAYS OF COPMCN /SOLUTN/ ivsS ¢0 . 
c URITTEN BY R, CRAIGIN FEB. 19869 vs 70 
« tvs 80 
Cc SEEORSSELESS SECTS ESHISHES OES SSTTS CSE SSSSSEHEHSISSECESS ESOS OSSESLE tvs 9060 
€ {v5 100 


CUBENS IGOR VICIB3,2ie ZEE1B%s 23s RLELESe2)5 S11183—e23~2 AATIC(29) ivs 116 
COPRON SSOLUTNS YO2e 15s 19092129190 19) UL 2s L919) VEZ 1G eID) ot(2,AGEYS 120 


Lek D$ oP l2e1Gs IDIVPTULGe LO} op HELD, 19) KLASS( 195293 iV¥S 3230 
COMMON /CNERL/ PRINT L PRENTZs ERROR s EVSTYPs [CLASS HP NT oli gp dcelsitelVS 140 
LHSTART -DELX s ODEL Ke KK oXl 23 XMAXLHOD Ivs 1506 
CG2HON /TONST/ Pt, ORAS, 2TU,G,BTUCG ivs 169 


COPHON /IVS/ XSORC se TSTACSZSORC e XIVS, VC IVS e ZCI VSsMCEYS oPHICIYs THECIIVS 2170 
LV ePIC LYS sHCIVS »RIVS,MIVSs FHETIVIPSEUV > PITYS cHEVS XPSORT pYPSORC eZPSI¥S 180 


2CRC, ALPSRE  BETSHC ivS 190 
COPMON /PLAWES/ NPOS NK LeNYL MZ 1LeNX2—.-V29NZ2 {vS$ 200 
QUIBERSION BEVS(30}, AIVS630), THETIVO35)2 PTEVS(30e2) 9 HEVS(3002) s1VS 210 
L PSIIVE30) i¥S 220 
REAL MCIVSeHIVS WX Ly NY? g AZ LeMX2eNY29N22 IvsS 230 
INTEGER PRINT1,°RINTZ 1¥S 240 
KU=EXIVS IvS 250 
YO=VCIVS IVS 260 
2BS2C EVS IVS 270 
KP IANP~3 IvS 280 
CIRX=0.0 1Vv5 290 

c IvS 200 
C LOGIC FOR PLANES GF SYMRETRY IvS 310 
c I¥S 329 
fF (NFPOS.GE.3) GO TG 40 I¥S 330 
ECLASS =4—NPOS t¥S 340 
APOS2=NPOS¢L tvS 350 
GU TO 1102205303, NPOS2 1¥5 360 
c IvS 370 
C WO PLANES DF SYMMETRY -- AN NT BY NT NETRORK £S CONSTRUCTED IVS 380 
£ IvS 390 
10 ASECT=2,00°1 Iv¥S 400 
NPLz19C I¥S 410 
Kiel IVS 420 
KN=2 IvS 430 ; 
Kieg ivs 440 
NOx2SNP-2 tvs 450 
co to 50 IVS 460 
c IVS 470 
C 1 PLAME QE SYMRETRY -- AN NT BY NP NETKORK 1S CONSTRUCTED fvS 480 
c IVS 490 
20 ASECT=P1 IvS 900 
hP1=180 IVS 510 
Kmz1 tvS 520 


KN=2 [vs $30 


F 
= 
: 
= 
E 
Ki26q IvS 940 
AO=20NP~1 tvs $59 
Gd 70 50 fvS 566 
Cc i¥vS $70 
c 2 PLANES OF SYMAETRY -- AN RP BY NP NETHCRK 18 CONSTRUCTED Iv5 989 
Cc Ivs $90 
30 &SECT=P1/2,0 ivs 600 
NP1350 Tvs 6010 
Kost {vS 620 
“N21 ivs 630 
Kf=2 Ivs 446¢ 
NOsNP ics 650 
GO Tg 50 IvS 660 
c tvs 670 
Cc 3 CR HORE PLANES OF SYRRETRY -- AN NP BY NP TRIARCULAR ARRAY ES EvS 680 
c COoNSTRuc7veo i¥S 690 
c ivs 700 
40 {CL4$5=1 iys 710 
ASECT SPSS FL GATENPOS} Iv& #20 
*P E63 Ivs 730 
Kxn20 Ive 740 
Kush tvs 750 
Ki*} Ivs (66 
Ee RO=xuP tvs 770 
Bae Ls Ivs 736 
e C f €STIMATED BOUNDERY POINTS LLE ON AN ENSCRIAEO CLRCLE OF RADIUS R vs 790 
— c Ivs 600 
Po $0 &2O.1 I¥vs eto 
i S$2Li1,7920.0 Ivs 820 4 
it Le | ivs 6306 
aan c IvS 646 
€ A TABLE OF BOUNDARY POINTS £S CONSTRUCTED USIRG wWALSUB IN ORDER IvS 450 
c JQ DEFINE THE CONFOQUR PERIMETER AT THE INITIAL vALUE SURFACE IvS #40 
c Ivs 670 
HPLIaNPLeL IvS a80 
NP225NP 142 tvs 890 
OU 7E {s8, NPIL IvS 906 
TeASECT 8Fi OAT Ci-2 )ZFLGATINP!) T¥s 910 
OIRZsSINtT} lvS 920 
Ctaystesert ivs 330 
VLLUKP=zRFBIRYOVO ivsS 940 
ZLCL KF sRFOIRZe7Z0 IvsS 950 
CALL WALSUB CXOVICT eK IZUCE KS DIRE -CERY,OIRZ} IVS 900 
RECT SMKPSSGRTG LYLC SK I-VO) 8220829211 2K 1-20) 992) s¥S 970 
{F ti-2) 70,60,.60 I¥ysS 946 
c tvs 990 
c APPROXINATE FHE PERIMETER BY A SERIES OF CHORDS fvSt000 
c tVS1O1G 
60 SLC EMR ISORTIIVECE KR I-YEC TAL KD OS 2eC ZL KI-ZUCIH2 KEP SS2IOSTLEVS1G20 
t f-3 2K) 1¥S.030 
7 TONT I UE fvS$ 1046 
CO £80 N=1,NP3 1¥$1050 
{F ({s.£0.1) GO TO 100 ¥vS1C60 
K=a2 f¥Si070 
§102.2%320.0 1¥S$160a0 


c f¥519020 


a Ph wR ae 


ot 


Aaa 


é4 DIVIDE RADIUS INTO INCREMENTS FGR INNER LEVELS 1¥S1109 
c. TVS1110 
RATIOEN)=COS ( FLOATIQMIEPT/4, +FLDAT I 1-KM)® (PL /2.-ASECT) + (FLOAT IKIVS1120 

1 M)SPI/4.+FLOATE1-KM) CASELT © (FLOAT (N-1) /FLOAT (R01) /KN3 2 /TCS (TVS 1130 

2 FLOATIXR) ®P174.4FLOAT{1-KM) (PT /2.~-ASECT) } 1VSi150 

c 1¥S1150 
c NPL INTERIOR POINTS ARE CONSTRUCTED FROM THE NPL BOUNDARY POINTS 1¥S1i60 
c a T¥S1170 
DO 90 I=1,NPI1 1¥S11B0 
T2ASECTSFLOAT( 1-1 FLOAT (NPL) TVS1190 

RL TyX DARATIOU HORA Te 2) tvS1200 

VICE KARE (12K OC OS(7 FeO 1VS1210 

ZACT RK IERICE eK IOS INIT) 4Z0 1VS1229 

1f (1-2) 90,80,80 1v$1230 

c 1¥S1240 
C IRD PERIMETER OF INNER LEVELS 1¥S1250 
c 1¥S1260 
50 SUT aK PSQRTUCYLC Eg KINKY P-1 0K) DOB 2OCZE CE KI-ZECL~L pK) 1 #2) C1 VS1270 
1 Sact-feK) 1vSi260 

%0 CONTINUE 1v$1290 
100 DELS2=S1(NPi} sKI/FLIATIKE®INP-N)) 1¥$2300 
$220.0 1v51310 

c tv$1320 
C THE COORCINATES OF POINTS LOCATED AT EQUAL INTERVALS OF ARC LEAGTH 1¥S1330 
©  ARCNG THE BOUNDARY OR ALING INTERIOR CURVES SEOMETAICALLY SIMILAR  1V51366 
£ TG fHE BOUNDARY ARE FOUND 1vS1350 
c 1V51360 
4=0 1V$1370 

NPP=NP-N 1¥$1380 
NPM1=NPLL 1¥$1390 

IF (NPOS.EQ.0) NPMI=NFL 1¥$1400 

c 1VS1410 
C LOGIC TO DETERMINE INDICIAL COORDINATES OF POINTS 1¥$1420 
c 1¥S 1636 
DS 170 1=1,NPMI 1V$1450 

IF (H.LE.NPP) GO TO 110 1VS1450 

if (M.LE.38NPP} GO TO 120 1VS1460 

IF (M.LE.S@NPP) GO TO 130 1¥81470 

if (M.LE.T¥NPP) GO TO 140 IvSi6g0 

NIEN 1VS1496 

NJ=NP ~Neade@nP?P 1¥5i500 

GO TO 150 1vS1510 

c tv$1520 
110 Rian 1VS1539 
NS2hP=ni 1VS1540 

GO 30 150 1v§1550 

c {vsSi560 
120 NI=Me2 ®N-NP 1¥Si570 
NJ=N 1¥S1580 

GO TO 150 1¥S1S90 

c tv$1600 
130 NI=2°NEPEN TVS1610 
NJeNeH-3¢NPP I¥VSi620 

co To 150 TVS 1630 

c 1VS1840 
140 NI=N-MO79NPP 1¥S1650 


i ae ge Bree re 


NJ=ad+2 NPP IVS Lo80 

150 CONTINUE 1¥S1670 

tf (1.60.1) GO TO 170 1vS1680 

LF (S2-S11,K)} 160,160,170 1v¥51690 

c tVS17G0 

C CALCULATE YeZ COORDINATES “f PGINTS 1VS1710 

C {VvS1720 

16G YOLeNT NSD SCVLE Te KI-VI CTS eK DMC IS2—SECIAL AKI ISOSEQCL KI-SLCLEVSL730 

i ~LeKI) DOVE CI-1LeK) 1VS1740 

ZOLANT NSD REZUCT KI-ZIC I< 2K DFC KS2-SLUL-2 SK) ZESLELD KI-SLOULIVSL750 

l ~heSd) D422 (1-2 9K) 1VS1760 

c 1VS1770 

C CALCULA... FiQtFEFIAL DATA AT THE POINT IvS1780 

Cc 1vS1790 

CALL INVALS (NI,NJ)} tvS1800 

$2=$2+0ELS 2 IVSl810 

N2He1 1vS1620 

170 CONTINUE 1vS1630 

180  CONTEINE 1VS1640 

¢ 1VS1650 

C CACROINATES AND INITIAL DATA AY CENTRAL POINT 1VS1469 

Cc tvS1870 

VOL NP »NPD=YO IvS'td60 

Z(LeNP,NP)2Zn 1V51890 

CALL INVALS ..'P,NP) 1¥S1900 

Cc LVS1910 

C RETURN TF NO PLANES OF 3YMMETRY 1VS1920 

c 1V51930 

CF LICLASS.FQ.4) YETURN 1¥$1940 

¢ 1¥51950 

CG SEFLECT POINTS WITH RESPECT TO PLANES OF SYPMETRY 1VS1960 

Cc TVSL970 

CALL REFLCT iL) 1vS1980 

GO TO (19092107240), ICLASS 1VS1990 

c 1V$2000 

C REFLECT PROPERTIES PT AND H FOR FLANES OF SYMMETRY TVS2019 

c 1V¥S 2020 

190) APL=NP-1 1vS2030 

CO 200 [21.NP 1VS2040 

PYCISNP+L SPT (LT NPL) 1V¥$2950 

HUL,NPSL) HCL NPL) 1VS2060 

PT(Lel,£)sPTiietel) fv°2070 

206) HC Leh PeHi Ee teh) IvS2080 

PT(NP +L NPL =PTINPL, NPS) 1V¥52090 

HOUNP+1L NPL) =H(NPL,NE SL) 1vS2100 

PT(NP4+ 1 NP41 D=PTINPOL NPL) 1VS2110 

HOUNP*L NPeE)SHINP+] NPE) 1vS2120 

PY (CL) NP42)2PT¢1L,NP-2) 1V52130 

HO LeNP+2)2H¢ 1pNP-2) 1VS2140 

PF(3,id=PTCL,3) 1VS2150 

HU3e1)=H(1,3) 1vS2160 

RETURN {VS2170 

Cc 1VvS2180 

C 2 PLANES OF SYMMETRY L¥S2190 

¢ 1VS2200 

210 = RPgaNpe2 tvS2210 
167 
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220 


250 


CO 220 f=1 NP 
PTT NP*) =PT CI NE=1 ) 
HCL NP+L) HiT NP-1) 
PTC T,NP42)2°T (1 ,Np-2) 
HOUDONP epee tp) 
CO 230 I=1,NP2 
PTONP#L, U)2PT(NP=1,1) 
HONP*L, EDEH(NP=2, 1) 
PTINP 42, Ed =PTINP=29f } 
H(NP#2,1)2H{NP-2,1) 
RETURN 


PLANE OF SYMMETRY 


AP2aNP42 
CO 250 I=1,NT 
PTC EONPOLD=PT( LT NPHEy 
HOLTeNP#h) =O, NP~1) 
PT UT NP2)=PT( 1,NP—2) 
HOT yNP2)2H( 5 NP-2) 
RETURN 
END 


16g 


tVS2220 
£VS2230 
§VS2240 
1¥s2250 
IVS2260 
IvS2270 
IVS22860 
{¥S2290 
{¥S2306 
IV8$2310 
1¥S2320 
1¥5$2330 
1¥S2340 
1VS2350 
IVS2360 
1¥5§2370 
fvS$2380 
€¥S2390 
I¥S2400 
1¥52410 
1¥S2420 
1VS2430~ 
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SUBROUTINE PRNIVS PRI 
Pri 

GHEVPSHSSCSES SESS HKES SHEE SESE EHSL STE SHEOSHSESHESSES SE OSHS ESSE SEHR OG PRE 
PRI 

PRINT QUE EFNITIAL VALUE SURFACE AND INITIAL THRUST PARAYETERS PRE 
PRE 

SSESSSTESSITHSESS VSSSSSEAL SCH TCSSESSESCHSASKT SESHEHESSESSESE SVE SSIES ES VE PKI 
PRI 

COPMON /SOLUTN/ VO2—19e 199072020 E99 19) oh 62919019) VE Ze pF et OD) eel 2,LGPRI 
Ly lLDb yp Pl Sele bVDs PT CLG LF) ot 199 29) eKESSSIL9~19) PRI 
COPROR /CNIRL/ PRINT IsPRINT2,ERRORGIVSTYP, ICLASS NP ONT e LE pdb ab b sPxE 
LNSTART ,DELK.ODEL Xs KK X23, XHAXSNG PRI 
COMMON /XRGLT/ RMU 25 199 19) ,O0XD0L 126 89915) sEACNER pDEL XMNA MME ANN SAFPRE 
ivy PRI 
COMMON /CCNST/ ?7,O0RAD0, BFU,G,BTUSG PRI 


COMMON /EVS/ XSORC,YSORC »ZSORC,XEVS,YCIL VS, ZCLVS MCL VS sPHICEV, THECIPRI 
AW e PICLYS,HCIVS, RIVSyMIVS, THETIVePSTIVePTIVS sHEVS pXPSORC y YPSCROAZPSPRI 


20RCeALPSREeBETSRC PE 
COPMON /THRUT/ AREA, AREATs FMASS pXTHRE ¢ YFHR Ig ZYME, XTHReYTHR ZIRE XPRI 
1POHT, YKOMT,ZMOMT ,PAMB,FMASSI,RMASS PRI 
INTEGER PRINTL,PRINT2 PRI 
NPRNY=PRINTES2 PRI 
LINE=11 PRI 
PRE 

PRINT OPTIONS, WPRNT = 1,fHRUST DATA AND ALL POINTS PRINTCO PRI 
= 2, THRUST DATA AND BOURVARY PCINTS PRI 

= 3+ THRUST DATA ONLY at 

PRi 

GO TO (10,40,80), NPRAT PXl 
WRITE (6,100) XIVS PRI 
WRITE (69140) AREATs FMASSsXTHR, YYHReZTHR yXMOMT, YPOHMT , ZHOMT PRE 
WRITE (6,150) PRI 
BRITE (6,110) PKI 
WRITE (6,120) PRI 
J2=NP PRE 
TF (ICLASS.EQ.4) J2=NO PRE 
CO 30 J=lyeNO,PRINT2 PRI 
Jl=1 Prt 

TF CICLASS.EQ.1) Jie PRI 

£O 30 JtSleJ2ePRINT2 PRI 
TF (LINE.LE.9%} GU TO 20 PRI 
WRITE (6,100) XIVS PKI 
WRITE (6,210) PRI 
WRITE (65120) PRI 
LINE=) PRI 
LINEZLINE i PRI 
FOLP=PT(453)/144.0 PRI 
TOLHFH(1, J)/BTUOG PKI 
WRITE (6,130) LedoVO Lele Sd oll led eS) el 2sl edd alZloete dd eVl2sl ed) PRI 

t Vizete Sp Pl2g la Sd eUl ists td eVilods St ew dels J) eTOLP,FOLH PRI 
COMTINUE PRE 
G3 TO 90 PRI 


PRI 


10 

2c 

30 

40 

50 

60 

70 

40 

90 
100 
1t9 
£20 
130 
14Q 
150 
160 
170 
14o 
190 
200 
210 
220 
230 
240 
259 
260 
210 
240 
290 
300 
30 
3¢0 
340 
340 
350 
360 
379 
340 
390 
400 
410 
420 
430 
440 
450 
460 
470 
460 
490 
500 
510 
$290 
530 
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C THRUST DATA AND BOUNDAR, POINTS PRE 940 
€ PRE 550 
40 WRITE (@,200) XIVS PRE 566 
MRIFE (61403 AREATs FRASS>XTHR, VIHR,Z INR XHOPT » YMORT, ZMOMT PRE 570 

WRETE 665160) PRI 580 

WRITE (6,120) PRI 530 

WRETE (69120) PRI 600 

JA22NP PRI 610 

fF CICLASS.EQ.%) J2=k0 PRI 620 

CO 70 I=l,eNO,PRINT2 PRE 630 

Jkzl PRI 640 

IF CICLASS.EQ.1) Jil=!I PRI 650 

CO 70 SeJled2ePRINTZ PRE 660 

1F (C1.EQ.L.GRJ-EQ.1) GO TO 50 PRE 870 

1F ¢T.-EQ.NO-ORJ2EQ.NO) GO TO 50 PRE 6860 

Go TQ 70 PRI 690 

c PRI 700 
50 IF tLINE.LE-54) GO FG 40 PRI 710 
WRITE (6,200) XIVS PRI 720 

WRITE (6,110) PRI 730 

WRITE (5,129) PRE 740 

LINE] PRI 750 

60 TOL P#PT (2 eJ17144.0 PRI 760 
LINESLINE +) PRI 770 

TOLHSH( 1, J1/B8F5U0G PRI 780 

ARITE £65130) LedoVi bp bedcoliloled eWl2ek eS) olloaete dd eVi2eted} ePRI 790 

t VO Sebo Se Pl2e ToT) Ul bebe dd oVE let eS) oWhisty J) TOLP, TOLH PRI 800 

70 CONTINUE PRE 810 
GO TO 90 PRY 820 

c PRE 430 
Cc THRUST DATA CNLY PRE 840 
B5 € PRE 850 
: 80 WRITE (6-100) XIVS PRI 860 
WRITE (0-140) AREAT, FMASSe XTHR, YTHReZTHR ye XMOMT, VROMT, ZMORE PAT 870 

90 WRITE (60170) MMMeNNNeSAFTY,DELX PRY 880 
RETURN PRI 890 

€ PRE 900 
€ PRE 910 
100 FORMAT (LHL eSX2 i SHINETIAL DATA ~—¢1GXe3HX e2XeF Geka LXe4HUIN)} PRE 920 
1190 FORMAT {(1HOe LOXe LHI» Zhe SHS yp GX LHYs OXe LHZ yp BXe LNM GP OXo LHQ,IX,LHP,TX,IPRE 930 
LHRHO, Xe L HT» WDXo LHU, LOX, LHW es OXe_ LHWe 7X» ZHPT, BX» LHH) PR! 940 


120 FOAMAT (2H 4 L8X,4SHCIND, SXo SHU IND» L2X,BH(FT/SEC) op LXeGHILBF/IN2) 220 ,PRE 950 
ROHL GMSFT 3) ¢ 2X, 7THIDEG Rb eo 3Xe BHI FT/SEC) p2X,GHI FT/SEC) g iXeQHIFT/SEC PRI 960 


2sFH(LBF/IN2) 9 1X» 9H(BTU/LBM)/) ORT 970 
130 FORMAT (2H 9 SXaT 2s 1X12 0 2K ye F 70 Ge 2k FT ay Qk FFD e eke Pel 2k oF Oe 2e2KPRI 980 
BeE WD SAK oF Toda 2XeFGale 2XoFBeleQXeF tel e2XoF Tele 2XsF Sel) PRI 990 


1460) FORKMAY (140, 10Xs L7HTHRUST PARAMETERS//1H 10% ,20HCROSS SECTICN AREPRELCON 
LR me FX 9 F 1004 92h 5 THEENSE 2) 4XeLLHMASS FLOM =22XoF 100 49 2X ge SHILBH/SECPRS 1010 
2boeAFLH gLOXe GHATHRUST = 9 2XsFGe2y 1X SHILBE Dy O%eOHYTHRUST e2XeF Tez PRI 1020 
DUR,SHELEED pbXsIHZTHRUST =e 2XsF 7.291 Xe SH(LBE 2 o//LH pLOXeTHXMOMT =—-=PREIO30 
4&4 2K, FS.2y Ue BHUFI-LBF Dy 3XeOHYMOMT «= = ¢ 2K oF Te2, LX eSHIFT-EBF) 3X0 ZHZPRI 1040 


SPOuT aeeXeF7F.2.iXo BH FI-LBF)) PRELOSO 
150 FURMAT (1HO» 10X, 37HBQUNOARY AND INTERIOR FLOR PARANETERS) PRI 1060 
1£0 FORMAT €2HO~ LOX, 24HBOUNDARY FLOW PARAMETERS) PRELOTO 


176 FORMAT CLHOs LOX, 27THXSTEP REGULATION PARAPETERS//31H »lOXslOHLIPITINPRE L080 
tG POINT E teike 225 ANOeUXe 3H =eiXel2,5X_16HSAFETY FACTOR = ,»FPRI1090 
240.5, 5X,30HDELTA KX # oF 10.4) PRELLOO 

EXD PRELLIO~- 


STR LE Wah peer TO NS TES CE Ei A a n/N A NR EY NSC 


2 Se TNE REP TOT yy 


SIBFTIC ENTXRG 


Mecnanennaniared menctasaricr tweet ameetbeseCPORHESOERs UT ALSCHMOHAIN SORUEE L thyhl tere AAMGiieUN PBL MON RAEI SLLELTN aE Ahi SntEN tw ANITPESE PAHANG OM KCRLDS dad) Bet Att rS? sauder, 


SUBROUTINE INTXRG tRG 10 
c IRG 20 
Cc SSGOSSECKES OESES SHER ESE FSEESTES ESE TOES OHS STS SL ESESSHSESEDEEDS TRG 30 
Cc {RG 40 
Cc ESTABLISHES INITIAL XSTEP 19 BE USED BY SEARCHING ENETIAL VALUE {RG 50 
c SURFACE FOR THE MOST RESTRICTIVE POINT {RG 60 
Cc RG 10 
C SSOSECERSOL GETS NE LE TES HEE SESHSSSEHOSCHELE SES SSESESOVSE EEE DEDEDE IRS 80 
Cc RG 930 
COPMON /SOLUTH/ YVU2— 219 LD) ZC 2c LILI) LMA LFeLIMP OVE ZeLID el) ow ESeLIERG 100 
LelD) PU ZS eLGe LD ePTELIGL 9) oHE LD: 19) pXLASS(19,19) TRG £10 
COFMON /CNTRL/ PRINT 1LePRINT2, ERROR, IVSTYr,ICLASS NP eNT TE etJobL sti oERs 120 
INSTART ¢DELX ,» QOELX, KK 2X€ 2), XMAXPNO 1RG 130 
COMHON /XRGLY/ AMC 2e 190 19) op QXOI 6 2919,19) EXCNTR DEL XMN, POM,ZNAN,SAFIRG 140 
lly RG 159 i 
INTEGER PRINTLIOPRINT 2 TRG 160 : 
Cc trRG iTod 
c LOGIC FOR OIFFERENT NUMBERS OF PLANES OF SYPMETRY TRG 140 
Cc tRG 190 J 
GO TO (1092030240), ICLASS {RG 200 i 
10 CONTINUE IRG 210 
20 Tl=nP tRG 220 
JSJ=NP RG 230 
Go 19 50 {kG 240 
c IRG 250 
30 Tianf {RG 260 
JJ=NP {RG 270 
GO 7G 50 tRG 2860 
c IRG 290 
40 Ti=nT {RG 300 
JSU=NT {RG 310 
50 CONTINUE IRG 320 
£O 150 12i,tt TRG 330 
dl=) [RG 340 
TF GECLASS.EQ.1) Jict ERG 350 
CO 150 J2Jl,JJ IRG 360 
Cc [RG 379 
c CALCULATE STEP SIZE RATIO AT POINT FROM MACH NC. STORED EN W(2,1,J3) IRG 380 
Cc ANC Q STORED IN Z( 2-125) {AG 390 
Cc kG 400 
OXOLE Ls Te SIAUCL, Fes) Se2/Z02,b edd Se 2e(SQRT (whet, IPOS 2-12 COF-SERTIRG 410 
1 CABSIZ1 29 Ee SD 2/UL1L gE, Idee 2—-1.C0)9) ERG 420 
Cc kG 430 
c LOGIC FOR SELECTING NEIGHBORING POINTS [RG 440 
Cc [RG 450 
RSK20.0 {kG 460 
MMI=E-1 [kG 476 
MHM2=f¢41 TRG 480 
ANEsJ-1 [RG 490 
NN2zJel {RG $00 
fF (&.GT.1) GO TO 60 TRG 5140 
MML=I {RG 920 
44223 [Rv 930 


60 {F (E.LT.NT) GO TO 70 IRG 540 


AML=11-2 tRG 550 


MM2=35 ERG 560 
70 1F (J.GT.1) GG TO 80 TRG 570 
NNI=J iRG 380 
NN2=3 RG 590 
80 {Ff (JS.LT.NT) GO TO 90 ERG 600 
NNL=JJ-2 TRS 610 ‘ 
NN2*JJ IRG 620 3 
C IRG 630 a 
C SEARCH FOR MINIMUM OISTANCE TO NEIGHBORING PONT {RG 640 q 
Cc TRG 650 3 
90 OO 110 KeFML, HM2 [RG 660 
00 110 NaNNl,NN2 TRG 670 a 
IF (KeEQ.1 -AND.N. EQ.) GO TC 120 {RG 650 
RSZIV EDK eNI—VEls Le SPF SF2ZH(ZI LR eM I—-ZU Lok p Jd) 362 ERG 690 E 
IF {RSM.EQ.0.0) GO TO 100 {RG 700 
iF (RS.GT.RSM) GO TO £10 IRG 710 
100 RSH=RS IRG 720 
110 CONTINUE TRG 730 
RMCLo te J) ZSQRTERSH) ERG 740 
RMOC2,r,JP=RM( 1,1, 2) IRG 750 
Cc ERG 760 3 
C CALCULATE THE ESTIMATEC XSTEP AT THE POIKT IRG 770 i 
C IRG 790 3 
OX=RM( Le be S)*#OXOL (1, 1,5} tRG 7909 ; 
C [RG 400 
C SEARCH FOR THE SMALLEST XSTEP IKG #10 
Cc IRG 420 
IF (DELX.GT.0.0) GO TO 120 {RG y30 
DEL XMN20X IRG 640 
DELX=0Xx 1RG 850 { 
MMM=I 1KG #60 i 
NNN=J 1nG u70 ; 
GO TU 140 InG 380 i 
C IRG 890 H 
120 1f (OX. 17 ELK) GO TO 130 RG Yoo i 
GO TO 140 [RG 910 H 
Cc TkG 920 ; 
130 CELX=0X IRS 930 : 
DEL XMN=OX TRG 940 i 
MMM= I 1RG 350 i 
NNNZJ ERG 960 } 
140 CONTINUE ERG 970 i 
150 CONTINUE 1R> 980 | 
COELX=CELX TRG 990 : 
Cc £26 1000 
C MULTIPLY ESTIMATED XSTEP BY THE SAFTY FACTOR LHG1OLO 
Cc BRS oO 
c £AG1020 
CELXSDELX90.64 {261030 
RETURN ERGIt +0 


END TRG1050- 


SIBFIC LABAL 


SUBROUTINE LABAL tAB 10 

c LAB 20 
Cc SSCESEH SHS IS PSTE SLES OSS SCHSSTH LS SESESHES LHD SvSHLSESHSS ELSES VL SSOUS tas 30 
Cc LAB 40 
¢ ASSIGN LABELS IN ARRAY KLASS TO EACH POINT. THESE LABELS ARE USED LAg 50 
c BY INTERP TO DETERMINE WHICH POINTS To USE FOR FITTING LEAST SQUARE 24B 60 
c POLYNOMIALS. THE LASEL CONSISTS OF TWO ODIGITSs THE FIRST GIVIAG tase 70 
Cc THE NUMBER FOR THE ONE-EIGHTH SECTOR OF JHE GRID IN WHICH THE PCINT LAB 980 
Cc 1S LOCATED (2-8) AND THE SECOND INDICATES THE TYPE OF STENCIL IC USELARB 96 
Cc UN INTERP (1-9), LAB 100 
Cc LAB 110 
C SOPCEHESESS SEES SENT ESS SESSESES SAT OETEESS FEECES7ENDEOSSESEESEES LAB 120 
is tAg 130 
ZOPMON SSOLUTN/ YU 20 19s 193920 20 190 1D) Ll 2p be 1D} oVE2Ze1LD oD) shl2,LGELAP 140 

Le ED ge PL2%, LD ALD PPTL LIL ODS HE 19, 19) pKLASS(19,19) LAB 150 
COKMON /CNTRLS PRINT LePREINTZe ERROR GIVSTYP ey ICLASS pNP ANT a LE, Jeb stb tA 160 

UNS TART »DELX es ODEL Xe KK oX0 2) yXMAX~NO 448 17G 
INTEGER PRIATI,PRINT2 zAB 180 

PLsNP LAB 190 

1l=NT LAB 209 

c LAB 210 
Cc LA@EL THE FIRST ONE-EIGTH SECTOR OF THE GRiO LAB 229 
Cc LAB 230 
KLASS(1,1h)=21 LAB 240 

KLASS (222}216 LAR 250 
KLASS(1,2)212 LAP 260 

CO $0 J23,M1 LAB 270 

CO 50 taled LAB 240 
SIIRCML-1I72¢00 41972 LAB 290 

IF (1T.EQs1.AND.J-LT. JIS) GO TO 10 LAB 300 

tf (1.€Q.1) GO To 40 LAB 310 

IF (1.EC.J) GO TG 20 LAB 320 

IF (J.L&.JJJ) GO TO 30 LAB 330 
KLASS(1,J)219 LAB 340 

“J TO 50 LAB 350 

Cc LAB 360 
10 KLASS(1,J3)213 LAR 370 
GO TO 50 LAR 380 

C LAB 390 
20 KLASS(1,JS)216 LAB 400 
GO TO 50 LAK 410 

Cc LAR 420 
30 KLASS (195 2225 LAR 436 
GO TO 50 LAB 440 

c LAN 450 
40 KLASSEUI, J F214 LAR 460 
56 CONTINUE LAB 470 
KLASS (M1—-2,M1-2) =17 LAB +80 

Cc LAR «90 
C LABEL THE REMAINING ONE-EIGHT SECTORS OF GRID BY REFLECTION LAB 500 
Cc LAB 510 
TF CECLASS.EQ.2) GO TO 120 LAB 520 

CO 60 J=2eK) LAB 535 


JlaJ-1 LAB 540 


sessed MATT AG GP" TMT MTT 


COU 60 t#1,J1 LAB 956 
RL &oSC J, EPARLASSOC 1g e100 L&B $40 
1F {ICLASS.EQ.2' CO TG 60 LAB 570 
SLLsfiel-8 LAB 580 
Tl2=1bel-J LAB 596 
ALASSULL 2,1) =KLASS(E 959620 LAB 600 
KLASSCLEL SS) 2KLASS(L » 5) #30 LAB 610 
IF CICLASS.£Q.3) GO TO 60 LAS 620 
KLASSCIIL,TL2 }=KL ASS (1,33440 LAB 630 
KLASSCLI2, ETA IaXLASS (3,53450 LAB 640 
KLASSO Se FEL) =KLAS 5i1533460 LAB 650 
KLASSUDe T12)=XLASSCT 0} 470 LAG &60 
60 CONTINUE LAB 670 
c LAB 680 
C LABEL THE DIAGONAL ELEMENTS LAB 690 
Cc L48 700 
YML=M1L-1 LAB 710 
CO 80 [=2,8N1 LAB 720 
{F TICLASS.EQ.2) GO TO 80 LAB 730 : 
{tL=LLeL-! LAB 740 
IF CICLASS.£Q0.3} GO TO 70 LAB 750 
KLASSCL, ELL sKLAS S41, 22460 LAB 760 : 
KLASSCLIL, TEL P=KLASS (1,12440 LAB 770 
70 KLASSZFI2R, LE) #KLASSIL, £5420 L£8 740 
40 KLASS CF, T}2KLASE CL, E5410 L28 790 
Cc LA3 890 
C CORHECT THE LABELING FOR SPECEAL CASES LAB B10 { 
Cc LAB 820 
IF CICLASS.L1.4) GU 10 100 LAB 630 : 
NN=RL-1 LAR 840 
CU 90 I<l_eNN LAB 850 
Cc LAB B60 
C CORKECT LAST COLUMN OF SECTOR & TU SECTOR 1 LAB 870 
c LAB B&O 
90 KLASSTT,MEDEKLASSCL, PL) -76 LAB 690 
100 FF «C ECLASS.tQ.2) GO TU 110 LAB 900 
Cc LAB 910 
Cc LABEL CORNER POINTS LAB 920 
Cc LAR 930 
KLASS(L,EEI=B1 LAB 940 
KLASSCITL, 92) =61 LAB 950 
KLASS( EL, bd=41 LAB 960 
Cc LAB 970 
C  CEATER POINT STENCIL FLRK O, I, OR 2 PLANES OF SYKMEISY LAR 980 
Cc LAB 990 
110) KL ASS(BR1L,41) e289 1461006 
RETURN LAB1OL0 
Cc LAB1026 
C CENTER POINT STENCIL FOR 3 OR MORE PLANES OF SYFMETRY LABIC 34 
c LABL040 
120, KLASS (ML, ME} =19 1481050 
RETURN 4 ABLOSO 
ENO LARIOTO- 
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SOR IGEN A 
$IBF°C BRAIN 


AQAAMONA 


NAO ANMAMAH 


N 
°o 


oon aaa 


an 


SUBROUTINE BRAIN 


£SSSHESFSS SA SHSEHE SESS VOT ESSSSOS SHSSSSSSSSSCOCHESSESES SESERHSSE TE 


CCATAOLS ERFEGRATIOR BETWEEN SUCCESSIVE SOLUTICNH SURFACES 


SHESHHASTSES SOEKSSETS OOS AESSESSA SES SESS] CESS EES IOSCESHSESOSHS CESS 


BRI 
URA 
BRA 
BRA 
BRA 
BRA 
BRA 
BRA 


COPMON /SOLUTN/ Y¥024 19. 199212, EF LID LES, LI LID AVE ZeLD ALI) oe EZ, LIBRA 


SolQ)ePl2, 89,19), PTULS LI) HELI, 19d pREASS(19919) 


BRA 


COMMON /XRGLT/ RAC 2 19s £9) OXOL (25 19919) pEXCNTR cDEL XMM: PPM NAN SSEBRA 


ity 


BRA 


COPMON /CNTRL/ PRINTLPRIMT 2, ERROR, LYSTYP, ICLASS NP NTs fhe) sb ol b SRA 


ENS TART DEL Ks ODEL X + KK yX{ 259 FRAX ONO 


BRA 


COPMON /THRUT/ AREA: AREAT.SFRASS eXTHRI ss YIRR De ZTHRI XTHR» YTHReZTHR,XBRA 


LPOMT » YMOMT » 2 MOM) » PAMB-FMASSI,AMASS 


INTEGER PRNTI,PRNT 2 


IF NMSTART IS .LT. ZERO, WG TaPE 1S REQUERED 
IF NSTART 1S .£€Q. ZERO. A NORMAL STARE IS RACE wIfH FRE SOLUTICH 


STGREO CN TAPE 


LF NSTART [5 .G7T. ZERO, START FROM TAPE 


{fF (NSTART.GT.O) GO TO 60 


SEF INDICIES FOR PLANES JF SYMMETRY CASES 


GO TO (10520530346), iCLass 
CONT IXUE 
TEL2NP 42 
JJLENP 42 
GO TU 50 


SULZNT 
JIL=NP? 
GO TG 50 


PU lent 

JJLaNT 

CONTINUE 

UF CNSTART.LS.0) GO TO 140 
ASTART2u 


NEw START 


REWINO 7 


WRITE FYPE SND SIZE OF ARRAYS ON TAPE 


WRITE (7) SCLASS «NP,NT, FRASSS 


GO To 140 


START FROM TAPE 


175 


BRA 
BRA 
BRA 
BRA 
BRA 
BRA 
BRA 
BRA 
BHA 
BRA 
BRA 
BrA 
GRA 
BRA 
BRA 
GHA 
OKA 
(TRA 
HHA 
PRA 
KA 
bAA 
“A 
BKA 
bah 
BRA 
BRA 
GKA 
GHA 
BKkA 
BRA 
BHA 
HA 
OKA 
BRA 
BHA 
BRA 
BRA 


ne rnesnnon ee AMA 


Cc BRA 540 
60 REWIND 7 BRA 550 
c BRA 560 
Cc READ FYPE AND SEIZE OF ARRAYS FROM TAPE BRA 570 
in BRA $60 
READ £7) ICLAS NPI NTL, FMASSI BRA 590 

TF CEICLAS.ME.JICLASS) CALL ERRORS (15) BRA 600 

1F (NHPL.NENP) CALL ERRORS 115) BRA 610 

If (NTLNEHT) Call ERRGRS (15) BRA 620 

GO TO (70280290, 100}, ICLASS BRA 630 

70 CONTINUE BRA 640 
80 CieNPs2 BRA 650 
JILSNP+2 BRA 660 

GO TO 110 BRA 670 

$e Ltlent BRA 690 
JSSLENPO2 BRA 700 

GO To 1t0 BRA 730 

Cc BRA 729 
100 Lil=nt BRA 730 
JSL=NT BRA 40 

110 CONTINUE BRA 730 
Cc BHA 760 
Cc START TAPE SEARCH BRA 770 
€ BRA 780 
BRITE 16,220) NSTART BRA 790 

CO i20 H=1,160 BRA B00 

READ (7) KK-X(215 MMM NNN, SAF TY, DEL XIN DELX pRMASS pF IVE2e Fe J).Z(2BRA B10 

{ eb IU Set ed teVi Sele di eWl 2s bed ePlZeled) oAMC Lal oS} SOXDL (201) JIBKA 820 

2 elslslhli sel eJIL} BRa& 830 
WRITE (6,230) KK BRA B40 

if (KX.EQ.NSTART) GS 10 130 BRA 856 

{F (KK.EQ.N} GO FO L2C BRA 860 

CALL ERRORS ( 4} BKA B70 

120 CONTINUE BRA 480 
WRITE (62240) BRA 890 

Go TO 210 BRA 900 

c BRA 910 
c BACKSPACE AND REREAD PLAVES YO START INTEGRATICN BRA 920 
Cc BRA 3320 
130 RACKSPACE 7 BRA 940 
BACKSPACE 7 BRA 950 


READ (7a Ki oX12) pHMM NNN, SAFTY» DEL XKN DEL XeRPASS CLV 2el edd el 2eh eBRA 960 
VIR eVEZ Le Ide VES, Ee S) Wh Sebo Td PES, Led) RPL Eek eS) sDEDE C2 eh oS} obBLs EZRA FIO 
ZULI set tat BRA 980 

CUELX*fELXK BARA 990 

READ (7) KKoX(1) »MM NYN, SAFTY, DEL XAN, DEL X RPASS CAVE Lele J) oiled pBRALOOO 
LSD eUE Lede So Vede Tedd WE Le be JD PEL, Log) Ame Ze hod) SCXOL EL oT, I), 221. 2HRALOIO 


212)5d51, 391) BRA1O20 

EXCNTRs0 BRA1030 

122 BRA1040 

fs tt=l “ BRALOSO 
¢ ~ BRA1060 

C CALCULATE THaUST paYA AND PRINT INEITEAL VALUE SURFACE BRALOTG 

c - BRALOBO 

CALL THRUST BRA10-0 


CALL PRNCUT BRALIOO 


“Oe Ptninae “hit Nokaanatabe, LEONE HRD UPD Otel 


140 t=} BRALLIO 
(L=2 BRALI29 
1F (NSTART.LT.O)} Go TO 350 BRALI30 
NSTART=NSTART ol BRALI40 
PSTART=NSTART BRALLSO 
GO TO 160 BRal160 

Cc BRALLITO 

150 PSTART=1 BRALLSO 

160 CO 200 KK=MSTART, 100 BHRALISO 

XCLEDSXCL J ODELX BRAIZ00 

Cc BRALIZ10 

c SEE if END OF NOZZLE HAS BEEN REACHED BRA1220 

Cc BRAI2Z36 

1F (X(L).€Q.XMAX) GO TO 219 BHA1240 
1F (X¢LL).GT.XMAX) CO TG 170 BRAL259 
GO YO tac BRAL209 
c BRAI2Z70 
1790 KUL&) xvax BRKAI299 
DELX=xm (-X{t} BHAL2 29 
t80 CONTINLE BRALSUU 

C BRALSLO 

Cc INTcGRATE QVExX sOUNDARIES AND INTERIOR BRAI320 

Cc BAAL330 

CALL BOUNOR BRALISO 
CALt INTER BRALSSE 

Cc eKALIAS 

Cc CALCULATE NEW XSTEP Oe s13shd 

is BKALINO 

CALE XRGLIL (Lethal, Js} HRALS #0 

Cc $R41409 

Cc CALCULATE THRUST PAaRANETERS CRALGIY 

c BHATS?O 

CALL TrRust ane ss 

i SKAISS 

Cc REFLECT POINTS ALONG PLAVES OF SYMHETRY ARAISS ) 

Cc Babee s 

1F CICLASS.LT.4) CALL REFLCT (tt) BKLINS) 
TF (NSTART.LI.0} GO TO 190 BRKAIGBO 


WRITE (7) Key XULL }oMMMSNNN, SAFTY OELXMN, GEL XY RBASS COVELL Lyd) RATS IY 
ECL ee SUR L els Ide VELL Let) WELL bed) PULL bet) RMI Ly bed}, OXOBK ALS VU 


~ 


2 CELE Te Sd etal itbd setesba) Be sio1s 

& AK Al 20 
€ ORENT OUT SOL TION SURFACE Beats 35 
r¢ feAlS SG 
190 CALL PRAGUY BRAID SO 
© aa4toes 
Cc SLEP INSICHES FOR SOLUTION AND INITIAL VALLE SURFACES BaALD IO 
C HRALDO 
LLLSLE be AGS FP 

beet Ba Alt OG 

200 Ceca Bx At) 
2i0 TF UNSTAK? .LE.0) RETURN RRALL ZU 
REWIND 7 BKAiE 3 
RETURN BHAI BY 

c Raaieod 
Cc BY alan) 
220 FGeHAY C1HO, 10K, JIHBEGEN TAPE SEARCH FOR START PLANE, 2K 503) ee rae) 
230 FORMAT 1.77, 20Ks GPL ANE JL 3,2 F, TSHREAD FROM TAPE} KeALN Ma 
246 FORMAT £100, 10%, SEME APE SEARCH EACEFNEL 109 PLANES} tei}. do 


END Be SEL re 


SEBSTC INTERP 


NAOOAANOKOANDM 


AMO 


c 
€ 
c 


30 


SUBROUTINE INTERP TRP 
TRP 

FSSTSFSHSSSSS ISS SSSS SHSTTSS SAHSESKE SHE SKE SSS SESS SHES SSHESVSEBWFSSESHSSH TRP 
TRE 

A SECOND CRKOER [NTEROPLATION POLYNOMIAL FfveZ) = AL + A28Y + AZOZ2 + TRP 
Ageyel + aseyes2 + AGSl9e?2? TS CONSTRUCTED BY LEAST SQUARES FIT. TRP 
NINE NEIGHBORING POINTS ARE USED FOR FITTING TRE SIX DEPENDENT TRP 
VARIABLES Uy Ve We Pe PT AND H. TRP 
TRP 

SSSOESHSSISISST SSSR SSES SSL SEHCKSTHOSEKSESTSLNSSVISHSSHSESAIGGSSOTESESR EOS TRP 
Tap 

CIMERS TON 1K19,9]_. JK(9,9} TRP 
COPMON /SOLUTNS YE2019e 19D ZU 2 LG TDD LE Se tFeLT) evi 2SslG eI aelSelLITRP 
LelLSesP lI LVDse LID GPT LG el Dy Hl 19s 19) REASS( L919} TRP 
COPHGN /XRGLE/ BML 2, 19, 19) yp OXDL (25 19,15) pERCHIR eDEL XANg FMM, NAK, SAFTAP 
ry Tre 
COPMON /CNTRL/ PRINT ISPRINT2¢EKROR SEVSTYP,ICLASS @NPoNToLl »SIeL ell oTRP 
UNSTART -DELX, ODEL Ky KK 9X12), XMAK,NO TrRP 
CUPMON /INTRP/ B(6,6} TRP 
COPMON /SLAS# AC 21) Tap 
TROP 

INDICLES STENCIL DATA TRE 
TRP 


LATA TKO eDe Oo lhe Lobe 2e2e2eOn Dee Oy Lake lke lo2et eAyOrOeOed ah ol e2sOe0etTRP 
1000 Os lolebe2eOe—-LeOr-lLordybeOs Lol eOs—leGer-igleDeleb yee Og-l Combe lFRP 
222 00a eOeDsDyDe-be-Lor-2elels2rsOe-lele-lgQ,te-leOel/ TRP 

CATA SK/O0 ee Sede Le Qe Ded ge 2eOo—he be2en~e Ce bese 2sOe~2er-Lel ele Selb eZe2 eT RP 


LD, -Sy—Lebate~beDebeD2On —2e—derdeOrlCaledeZrOe—be~ieDsOed eloret eDy~LTRP 
Ser LeDeOeOe ls be 2s Oe-2e2e-ieleOs—LeleOsOrGe Del olels-ba~le—-l/ TRP 
INTEGER PREMTI,PRIMNY2 TRP 
waft TRP 
KeJJ3 FRP 
FRO 

ZERO SUMING LOCATIONS TRP 
TRE 

TG LQ f=4,21 TRP 
Rif)20.0 Tpp 
SU 26 J2he6 TRP 
CU 26 f=!,6 TRP 
@(E,31=0.9 Tap 
TRE 

OETERMINE PARAMZTERS FOR STENCIL MANTPULATIGA FROE KLASS LABELS TRE 
TRP 

PICKEKLASSI FON) TRE 
RPICK=PICK/10.0 TRP 
NPTYPPKLASS (¥ANI-NDECKO IG Tk? 
4(1)29.0 Tre 
TRE 

MENESULATION OF ENGICTES F492 2 PFInRT STENCIL TRe 
TR 

tO 150 xK21,9 Tap 
GE TG £30540. 50,68,79,80,9C, f00!, VPECK TRP 
PeTR(K,NPT YP? TRE 

oz JF UK NPT YO} TRE 


' 


" eat fe Tear RG 
TNH Ue nar nuiit ath avn cc iH anda duh HU IMU aditeles wien dtd hat se sestittan ft slits Mfvcrde 4 fea ar Re 


j ~"s 
o 
GO To Lie TRP 550 
c TRP 566 
40 T= JK(K gNPTYP) TRP 570 
SEEK KANO TYP) TRP 580 
GO To 110 TRP 590 
c TRP 600 
$0 Tse JSKGS NPTYP } TRP 610 
JEIK(K A NPTYP) TRP &20 
GO TO 110 TRP 630 
Cc TRP 640 
60 T=-IK(K,NPTYP ) TR? 650 
JIIK(KMPTYP) TRP 660 
GO Ta LlO TRe O70 
5 TRP 680 
f=-IK(KyNPTYP ) TRE 690 
Jz—-IKIK NPTYP ) TRe 706 
GO To 110 TR 710 
& TRP 7-9 
80 1s-JK(KyNPTYP} TRA 136 
Je-TKOK,NPTYP } TK? 140 
GO Ta 119 Tre 450 
Cc TRE 760 
90 P= SK(K,NPTYP) TRE 770 
J=-IR (Ky NPIYP 5 TR? 9) 
GG TO 110 TRY 3) 
c TAP BODO 
100 1="*KIK,NPTYP) TRY S26 
J= JK(KyNPTYP ) re? 3 20 
110 [= +M Tre 330 
Je ten Th? 440 
c Tee wot) 
C SEARCH fCR NEAREST NEIGHBO« FOR XSTEP REGULATICN Tee Lag 
Cc Tae 470 
RSzIVEL eT ep JPHVA Le MeN DOH 2E(Li be tet) 20 Ly MeN) ) 82 Th + 2,80 
GO TO (140-1305 120,1 2C,329-120, 120, 120,120) K Tet gst 
120 CF (RS-RSA) 130—140, 140 Pier Yan 
L3¢ RSMERS Ter gy 
140 CONTINUE TR 970) 
C Tre? 99 
¢ CALCULATE LEAST SQUARE vECTORS FAR THE OEPENCENT VARTAULES THE 946 
Cc Usp Vo We Poy PT + te 959G 
c TRY 969 
Bl lelizBe le li eutl ede J) Tre 979 
BlS’eleb( Zeb} tUth ele JIFViIL eT ed) TH GRO 
BUF LIRBC Ze LV eU ole IPL EL bed) FRPP 990 
BiSsidtRaolirulbele SPCC Lets Jeli Ey FD TRELNOD 
BIS LI“BESe LI Ui bebe DPeV IL aL yp SPOKE TRPIOLO 
BEG, LFA G. LEU Te HE OZ LT pd) eH? TREIO20 
Bie 2IER CL 2d eV iL ete Jd) TRELO30 
Bi 2.22 BCSe2V Vidal, IEeVi Le be 2 TRE [N4D 
BV 2, 2USB C32) 4Vib ets SPF2(b EL) TROIGSO 
BUG 2d=B Lae 2D eVib ste SIe% (Lol ep JIeZ(L Ed? TRPIGHO 
B(S5e2)2B( Se 2b 4Vil sis Sd V{L eT J) 8 F2 TREIOTO fl 
BST PSP E612) Ved ats JDO ZEL eb, sd eee TRPIOAD 
BCL »dbePil, 3) twlo el, ut TRP1O90 
BCS, 3d3=B0 2. THIET JIOV IL Ed) TRPLLOO 
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on ait arco firemen matenenrienPeitn Foe idee 


230 


One 


8(353)*8(3,3)+W(L ole JI*Zi Ly ty y) 

BUG 3dHRL Gy Bd OW KL oly SIOVEL Dy SOLEIL yt yd) 
BUS, 32815 s3) eH Lots JISYIL GS, J) 982 
B(653)3B86e3) tW(L ols JISZ(L 1,5) 882 

B05 24)sB( 1,4) P(t, ty) 

B24 Bl 2,45 +P lL Ly SDOV GL oT pd) 

B03 eG) 2803.4) PUL ty cselilo hed) 

BUA Boar eP Lele SIV ELe led. #2UL led} 
BUS eadeBUSeGdePiL yl, SiGYIL yt giaeD 

BUS 4d=B 6,4) PUL de dee t Lol, J) eer 

BCR, 5)=B( 2,5) oP T(E) 

8(2,5)2H( 2,5) 4PT CS, 2) 4VEL Ey) 

BC 3s5s=BideSV PTC ted dO2IL yt, G) 

B04 SI=B( 4,53 4PT CES POYUL Ty SSL (Ly Led) 
B(5,5)=815,5)4PTC EI) eviLy 1, J)ee2 

BCG rSt=Bl 6,5) +PTCZ,3) 824 1, dpee2 
B(1,6)2=B0 1,6} 4K( 1,9) 

BUG -6V=B( SO) HHT IDV Sil ys dH2 LoL od: 
815-6: BUS oO) HCL SIV (Le Lys) ee? 

BUG s6)=B( Sb) tHIL IS OLIL GL, J ae? 
B(2eS)3BU 2.5) HET SPAY. LE: bg) 
BU3163-8C3,5)eHL Es aZ(hy td) 


CALCULATE THE LAST SQUARE MATRIX FOR Y¥, 2 CCOROINATES 


ACZVSA(2)4V0L TZU) 
ALS VZAC4) OZILGT50) 
PITPEAITI ANIL Ds S) #2 (ho by Jd? 
AULLISACL SP eVIL gl, gpec2 
AULOIZACLO)4Z (Ly 1,5) 682 
ACBSHALBI OV (Lely d)ee 262 (4,1, 9) 
ACL2)SACL2)4V (Lei shene 
AULTIEALL 7 OFY (Lele Zt y Lys) ee? 
ACLOISALEBI4HZ(L 1, t) wee 
AULOVSACLOIFY (Lyles. ee 2edi Ly lpg pee 
AULGIFAGLG) OV (Lele dd #938Z( Ly Ted) 
ACLOFZACLOD EVIL a Led) eZ iLy ig 2283 
ACLSISACLOSeVEL Lap any 

AU2LISAL22) oling dy a) ea 

A(3+sA(11) 

A(S)2A(7) 

R(O}=ZA16) 

RIDD=ACL7) 

ALL37<A(8) 

A(20)2Atya) 

AMOR MeNDZSORTIRSM) 


SGLYE LEAST SOUARE SYSTEK FOR THE POL YNOMFEAL COEFFICIENTS 
CRUL SLAES 


RETURN 
END 


18 


TRPILIO 
TRPIL26 
FROG 
TRPLL4O 
TRPLESO 
TREO 
TRPLLTO 
TRP1180 
TRPLEDC 
TR?1200 
TRP1220 
TRP1226 
TRP1236 
FRPL2¢49 
TRPi259 
TRPi240 
TRPI276 
TREI360 
TR7i3t0 
TREL329 
FRP1280 
TRPL290 
TRPI330 
TRE L340 
TRP3350 
TRP1360 
TxPL370 
TRPL380 
TRP1390 
TRP 140U 
TRPI410 
TRP1420 
TRP1430 
TRP 1440 
TRP1450 
TRP1460 
TRP14 10 
TRP 1560 
TRP1490 
TRP1500 
TRPLSIO 
TRP1520 
TREIS30 
TRP1540 
TRP1550 
TRP 1569 
TRP15 70 
TRPI530 
FRPI590 
TRPWGE 
TRPIO1G 


TRPL620- 


om 


in ae 


s1BFTC SLAES 
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SUSROUTINE SLAES SLA 

C SLA 
Cc PREVESSKSE SLEGTHSE SHSASIES SESHESSEHESTESHOSSSSESSSKSOSHESSEOHRHASESEVGERSS SLA 
SiA 

2 HOCISICATION OF [BM LIBRARY SUBRUUTINE GELS FOR A SIXTH ORDER SYSTEWSLA 
c OF SYMMETRIC LINEAR EQUATIONS - USED BY INTERP Sta 
C SLA 
Cc SSSESSESHPOSTVSES SSSR STE SE SOSH CK SSSESTSESSKRSESESSESSSEEHASSSHEHKESSOSEKREESES SLA 
Cc SLA 
CIMENSTION AUX{5) SLA 
COPKON /SLAS/ Al 21) SLA 
COPMON /INTRP/ R36) SLA 

#26 SLA 

N*G SLA 

C SLA 
c SEARCH FOR GREATEST MAIN DIAGONAL CLEMENT SLA 
Cc SLA 
Piv=0. SLA 

L=0 SLA 

CO 20 K=)]—# SLA 

LaLek SLA 
TB=ABS(A(L)) SLA 

IF (TB8-PIv) 20,20,10 SLA 

10 PIiv=TB SLA 
fer SLA 

J=K SLA 

20 CONTINUE SLA 
Cc SLA 
c MAIN DIAGCNAL ELEMENT A(T) =A( S25) IS FERST PIVOT ELEMENT. LA 
C PTV CONTAINS THE ABSOLUTE VALUE OF A(T). SLA 
c SLA 
c SLA 
C $sART ELIMINATION LOOP SLA 
Cc SLA 
uST20 SLA 
RM2NeM SLA 
LEND*M-1 SLA 

tO 130 K=h_M SLA 

LTs JK SLA 

LST=LST eK SLA 

Cc SLA 
Cc PIVOT ROW REOUCTION AND ROW INTERCKANGE IN RICHI RAND SIOF R SLA 
Cc SLA 
PEIVEal./Ali) SLA 

OO 30 L=K»NM,M SLA 

LL=LeLy StA 

TBSPIVE*A( Lt) SLA 

RqbbLI=RIL) SLA 

30 RELI=TB SL4& 
c StA 
C EL SLUKINATION TERMINATED SLA 
S SLA 
TF iK-M) 40-4140,140 SLA 

SLA 


540 


a eee cas ee a ae 


Sas i re ee rte ree ttn, ener A — 


4, 
recat Math maebmunlselind atte Aletta Wiihaunitntewsithkses WASed WURbAIA a (MSRMAERI 
, 


€ ROW AND COLUMN SNTFRCHANGE AND PYVOT ROW RENLCTION IN MATRIX AL SLA 550 
€ ELERENTS OF PIVOT COLUMN ARE SAVED IN AUXILIARY VECTOR AUX. SLA 466 
c SLA 570 
40 LRELSTHIL TOK es-1))72 SLA S80 
LL=LR SLA 590 
L2LsT SLA 600 
0D 90 ffek,LENG SLA 610 
LaLels SLA 820 
tL=Lbs} SLA 630 
TF (L-LR) 70.50.60 SLA 640 
50 AULLIZA(LST) SLA 650 i 
TB2A(L} SLA 660 ; 
GO TG a0 SLA 670 ’ 
c SLA 680 
60 LLELOLT SLA 690 
70 TAZA(LL) SLA 700 
ACLLD=A(L) SLA 710 i 
60 AUXOLT}*78 SLA 720 
96 AULI=PIVE*TB SLA 730 
c SLA 740 
Cc SAVE COLUMN INTERCHANGE INFORMATION SLA 750 
Cc SLA 760 
AULSTIZLT StA 770 
C SLA 780 
Cc ELEMENT REDUCTION AND SEARCH FOR NEXT PIVOT SLA 790 
Cc SLA y00 
PIV=0. SLA B10 
LLSTSLST SLA #20 
LT=0 SLA 630 
te CO 130 T1=K,LENO SLA 840 fxs 
ar PEVI=-AUX(ET} SLA 850 
LL=LLST SLA 660 
CT=LT +l SLA B70 
: OO 100 LLD=f1,LENC SLA 820 
LLELL¢LLO SLA 890 
LELLeLT SLA 900 
100 A(LISAIL) ¢PIVISA(LL) SLA 910 
LUSTSLLUST OLE SLA 920 
LRELLSTELT SLA 930 
TSZABS(ALLR}? SLA 940 
IF (TB-PIV) 120,120, 1280 SLA 950 
110 PIV=TB SLA 960 
1=LR SLA 370 
salle SLA 980 
120 CU 130 LR=K,NM,A SLA 990 % 
LLOLROLT SLAIL000 
130 «= RELL DERILLPAPIVIORILR) SLAIUIO 
c SLA1020 
c ENO OF ELIMINATION CCOP SLAIO30 
c SLAIOGO 
c SLA1050 
Cc PACK SUBSTITUTION ANU BACK INTERCHANGE SLALO60 = 
C SLALOTO Soe 
140 1t36 SLA1060 nee 
CO 160 1=2,4m $t 41090 
LSTSLSI-ET SLALIOO 
1&2 Se 


iysit-) 
LaA(LST)+4.5 
COQ 160 sell ,NMee 
TB=R{S) 
tleJ 
KeLst 
NG 150 LT=EI, LENO 
LLFLiel 
KeKeLT 
150 TB=TB-A(KIORILL) 
KsJee 
ROSdERIK) 
160 R(K)=TB 
RETURN 
ENO 


SLAILIO 
SLALI20 
SLALI30 
SLAI140 
SLALI50 
StAl160 
SLAL1L7O 
StA1l180 
SLALI9O 
SLAL200 
SLA1210 
St Ai220 
$tA1230 
$L41240 
SLAL250- 
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SIBFTC XRGLTR 


Set cn AN nd GS NANT Pa St MR 


SUBROUTINE XKRGLTR (E,i1l Meh} XaG 10 
Cc XRG 20 
Cc SOCSESSSHFSESSSESST SESE VS HSS SSSTSEOSHEKSSE SCE SSELVS SHS STSEOTSSES SESSIONS XRG 30 
c XRG 40 
C SEARCHES FOR THE MOST RESTRICTIVE POINT ON THE SOLUTION SURFACE xrG 50 
c AND PREDICTS NEW XSTEP Size XRG 60 
c XRG 70 i 
Cc STVSS THOSE HES SSSESSESSESSHECE SHERESSSESESSESHSHO SSH SESS SHEETS SHES EKERIDE XRG 80 7 
c XRG 90 } 
COPHON /XAGLY/ RAO 2,19. 19) eDXOL (25 29919) CEXCNTR DEL XMNg FRM g NNN SAFXRG 100 ; 
\Ty XRG LLC : ‘ 
COYMUN /CNIRL/ PRINT LSPRINT2, ERROR, IVSTYPs ICLASS pNP ONTo LE eS Sobel lh pXRS 120 Z 
UNSTART »DELX, ODEL X, KK eX 2), XMAX,NO XkG 130 : 
INTEGER PRINTL,PRINT2 KRG 140 : 
c XRG 150 
C CALCULATE THE AVERAGE STEP SIZE XRG 150 
Cc XRG 170 
CELXB20.54(OXOL( PeMeND*OXOLE DL MND DORMOD Meh) xKG 180 
SF (DELXB.GE.DELA} GO TC LV XRG 190 
10 {€ (DELXB.GE.DELXMN) GO TO 20 XRG 200 
CELXMN=DELAH XRG 210 
t XRG 220 
L LABELS FOR MUST RESTRICTIVE POENT XRG 230 
c XRG 240 
WM BoM XRG 250 
ANNAN XRG 260 
20 RETURN XRG 270 
C XRG 280 
C PREDICT NEW XSTEP XRG 290 
c XRG 300 
ENTRY XRGLILIT, EL, MeN) XRG 310 
Cc XKG 320 
c ADJUST SAFTY FACTOR XRG 330 
Cc XRG 340 
RATIO=OELXMN/DEL X XRG 350 : 
FF (RATIO.GT 1.1) RATIZ 1.1 XRG 360 
fF CRATIO.WLT.0.9) RATII20.9 XRG 370 
SAFIY=SAFSY*RATIA XRG 380 
CELXEX=DXOL (11, M4) NNN) ORM Tp RMMyNIN) COELX/ODEL X#(OXOL CEL» HEB AANIXRG 390 
LORMU Ts 4PM eNNN)-DXD. (Pe MMM) NNN) @RME EMM YNNNG ) XRG 400 
c XRG 410 
C ROUND OFF OELX XRG 420 
c XRG 430 


NOEL X= 1000.0 DEL XEX®SAF Ty XRG 44C 
CELXEX=NDELX XRG 650 
TELXEX=DELXCX/ 1000.9 XRE 460 


q 

DELXHN=DELXEX*2.0 XRG 470 

COFLX=DELX XRG 480 

CELX=DELXEX xkG 490 

RETURN ARG 500 
1 
[ 
& 
: 


ENO XRG 910- 


2 2 
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2 F | 
fl i 
i 
: 
i i 
i i 
| ; 
i 
SORIGIA cs 
SEBFIC 8CUUOR 
SUBRUUTINE BOUNDR Buty 1) 
is BOU 2h 
C 9$68S55099F 00 0SO7OSTH DEE TOTEHSHSOOSEEEH EOE ESOEEEELE SEDER ESEDE BOU Iu 
Cc Lou 4u 
€ INTEGRATES OVER THE BOUNDARY PUINTS BQU 49 
c HULU 60 
C FSRSTSISCHSE TLS SSESS STSSSE SES SHSSCVSSOL CES SSSSSESHSS TSE SEOSOH SHREK HE ZOZOES @ou 70 
c B80u 40 
COPHON SSOLUTN/S Vile 199 29) E120 LFS) oLE Ze LGeLD oVE SelM elLGdenl2.19BOU 90 
LelDe PLA. LD LD ePTFE LIL Db tl LS, 19) -KLASS(19,19) Bou 100 
COPMON /XAGLT/ RM 2, 19, 19) ,-D0X0L (62,19, LStZEXCATR DEL XMN, YPM NAA, SAFBOU 110 
lty BLU 12U 
COPMON /CHIRL/ PRINT LePRENT Ze ERROXCIVSTYPs ICLASS oNP ONT eo lle JJeb bt ,BOU 139 
UNS TART sDELX p ODEL Xa KK 4X 2) ¢XHAX,NO BOU 140 
RTLeNT~? eOu 196 
AQ2=NO BULU 160 
fF CICLASS.EQ.3) NO2sNP Bou 1/0 
CO tO el ,NO,NTt BUU 1489 
CG 10 J=ignl2 BOu 19U 
Ika] B0uU 200 
Jdusd BOU 212 
CALL BPTSUB CYL Leds Zt hada Sd ePTCE etree See VELL Tedd oe Zhlb el eBOU 220 
i SV UCLL Le De VURL obs SD e willbe TeSd) MULL of eS) eDOLOL CLE eT dd} BLU 230 
lo CALL XAGLTR (Leits fey) 3UU 249 
UF €ECLASS.EQ.1) GO TU 30 BLY 259 
AOQL2NO BbUU 260 
TF (CICLASS.GI.2) NOL#NQ-1 BOU 2/0 
CG 20 JzignNG2,NTI ay 280 
CU 20 i*2,hQ1 BUU 290 
tis] buU 30C 
JJaJ BOU 310 
CALL BPTSUB CY¥GLe let) olthole dbo PTCE ett obi le Jd e MULL el edd e Zibb yt pBGU 320 
1 SPUILE Let re VELL ode Sd eWOL Le Fed) PULL oD ed) pOXOL (Lied esd) BU 330 
2c CALL XRGLTA (Lellb ols J) BLU 340 
30 CONTINUE BQuU 349 
RETURN bOU 360 


END BOu 370- 


EJ 
z 
= 
3 
FI 
} 


seams 


SibECC BPYSUE 


SUSRGUTINE BEISUB (75,2 52P TS, HS Yb el4 ebb, VOphOePSADXDOL? Ber lo 

c oPT 20 

Cc AOSTESEOREELFSHSR SCS ST ESS SICKTSE STE SCHESCSSSEHSSSASSSHSSSESESSOCESESSESVE BPT 30 

€ BPY 40 

c CALCULATES & NEW BOUNDARY POENT OF THE FLO FROM DATA STORED [A THE BPE 50 

Cc THREE -OLMENSTONAL ARRAYS Ue Vi ws 22 PT ANDO H AND BOUNDARY DATA pPr 40 

C FROM THE WALL POINT SUARIJUTINE, WALSLB. BPr 70 

Cc BPT Bc 

C FROST COLA ESE SE OES SE OE ESS GAGES ESSE SAV EELE SS ES OSUCES ESSE SSOSASEEES BPT 96 

€ BPT 100 

COPMAN /PTSUB/S 116) 216} ,ULED VEG) HIG) FG) Pe iLOdertad ALO) PROLSIBPT 110 

15016) ,Q(63,QSGR{ 6), 0U0% (4) ,UUDY{4S! ,VUDZ!6) -OVOXIG) sOVOY16) -CVOZ(OIBPT 120 

2,080X%(6) OWE lO} ,OWO2(6 },OPDXRESS -OPDY(6) .OPOL{6) ,GPTO4K{6) ,OPTLY(6)BPT 130 

3,OPTO2 (6), D0HOX16 } ,DHCY( 6)s0nNZ 16). OCOK (6) ,OCOYi4! ,OCOZ16} ,DACPib) AFT 146 

+CA0H(6) ,DADPT(6} ,ORUCPL 62>, TROIDP I (61,ORCOHI6)} ,ALPHi6) ,ALPY{4) ,ALPZIBPT £50 

SE) eBETX(OD,BETY( 6), BETZ £62, ALPTX(5) AL PTY(G$ pALPTLE6) sCPYH(6) -UPTHBPT 160 

OL4DVPTHIS De WPTHIS) ,UTHEF CaS) sVTHET (4) »RIREFi4) , FAUCE) PADBDS BPT 170 

COMMON /CNTRL/ PRENTIsPRINT 2, ERROR A EVSFTYPS ICLASS SNP NZ ofl eJSS pb eLi BRT 10 

LASTART ,DELX sUDEL Xe UK o¥l 2) 9 AMAX eH, BPT 395 

COFMON /INTRP/ B(6,6) BPY 200 

REAL NEUM,KL,K2, NORM BPT 210 

INTEGER PRAT EL,PRNT2 BPT 220 

Yo)2¥5 69T 230 

2193225 BPT 240 

PT(S)2PTS BPT 250 

H15)2H5 HPT 260 

5 C4LL TMTERP BPY 270 
ae Cc BPT 280 
oe C (INTERPOLATE FUR VALUES AF PUENT (5) BRT 290 
Bai c uPT 300 
ee UUSPSHEL ea LDV OBL 2, LISVES) CBC I, LIFZISI OBL Ge LITVESIOLIS Pe BILS,LIFV(S,eeBPT 310 
Seay L2eBlbeld#Z(5) eee BPI 320 
iis ots VESIZBC Le 2HHL 2%, JIFVISI ABET 2ISLISPeB ES QIOV HE OLES OBL Se 2ISVIS) eSBPT 330 
: 124816, 2.0205) #82 RPE 340 
WES) EBL 3) 6562, 3) 8415) THUD, TIFZISV EBS TPFV (SP SZI5 3681S, 3S VIS) eSBPT 740 

12eBl6, 304265) 492 BPY 345 

PUSD BCL SEH 2, GISVESD BUS SIOLIS DEB SEVIS) ELIS) FBISeGPOVISDOCBPT 370 

12¢8(6,4)92(5)¢#2 BPY 340 

Cc BPT 390 

Cc CALCULATF PARTIAL DERIVATIVES FOR THE DEPEADENE VARTAALES BPT 4506 

C BPT 410 

CUBY(S)=B12eTtR1Sed DOL (Sd 2.C# R551) V5) BPYT 420 

CUOL( 512603, 14+ B( 4, Lev (534+ 2.0#Ai6bg 1)%215) BPY 430 

CVOY(S)=Bl2,2)#314,2 292 (5)¢2.088(5,2)4%7(5) BPT 440 

CVUL(5 15813 —¢ 2098 64.72 0846534 2.08Bt6,2)4L15) BPT 450 

CwOVC8)2B0S, 30 4R 14,3092 15942.085(5, 3d FV15) BPT 480 

CHTZ2(5 22035 324814, 3) 84 105162 .08K(6, 3997215) BOf 470 

CPEY{5)2B0246148 64,4292 (9)62.0%8(5,4)8 (5) BPT 480 

CPOL151=813,5)43 64,4 14V(5142,.066816,4)42(5) B8PT 490 

c bPT 500 

c CALCULATE THERMODYNAMIC PREPERTIES AT POINT (5) gPT 219 

Cc BPT 520 


CALL AROSUB CPESD,PT (5), HED} FACS) RO( 53, OSQRE5) pVADP(5) sPANPT (5) ,08PT 530 
TA0H(5) .ORODNP TS) DRNDPT( 5) pVRNHHI5)) BPT 540 


aoe aad soot simemementnnmneiemetmmaammmnaaiiaaaiaaiad 
oo od te 


etdieaahade ieee Lat} 


CISISSCRICALS I €e TQS CRE SIFTS IK 9) -A( 5) 8075) BPT 950 

c BPT S60 

CUDALS PS(ROUSIOULS POLY SPFOUDY ES 3+h15) PULDZ(5 93-415) S0PDV (5) <n (5) SBPY 570 

ECPOLES I-ROCS 9 #815) =H 29( OVDYi 914221595) 7ORO09) {A065} 982-15) e027) BPE 540 

Cc BPT 5356 

CVGS15 Dal eDPDY (5 Fe ROI5) OVI SP ODVOVISI-ROLSIOHESIEOVOZISPIS(RC(S) eUIBRT 666 

1$)) BPT 610 

Cc BPT 020 

OWDK 15 28 f-65N2(5 )-RO1S) ey ES) OGWOYE5)-ROCS) ew lS eOWOZI5) I) S(RO(S) eUlBPT 630 

1933 BPT 64¢ 

Cc BPT 650 

VUUDS2U (5) ©1U 05) *OU0K (5) #465) (OVDX (5) sOUDY (5) FeH15) FCOWOX(S) ¢CUDZIBPT 630 

LSI IDFVES) FLV 05) SOVOY (5) tl SPO (OWDY (CS) 4OVOZ(S) Ed end SD ek (51 8ON02(5) BPT O79 
£0605~CUDK (5 FOV OY (5 )eNKDZ65)-UUD »/QSQR(5) PT 680 

c BPT 696 

c MAKE TAYLOR SERIES APPRUXIMATION TO NEW POINT DEPENDENT VARIABLES BPE 700 

C BPT 710 

CPOL(5 )e-RC(5)*{ US) SOU ORI SI 4VI SSO CUNY (5) ow S)80U0715)) uPT 720 

CEL Y*DELXev(5)/U15; BPT 7306 
CELZeMELXeH(5)/U 55! BPT 74 

PERSP (5) 41 0PDX( SF *DELX sOFDY (5) *0ELY*+OP0Z(5)*bEL2)/3.0 aPr 750 

Cc BPT 760 

Cc UNTTEALEZE LOOP VALUES IF STATIC PRESSURE FSTEMATE 15 NEGATIVE BPY 770 

Cc BPT 740 

TF (P16)) £5210, 20 aPT 790 

zi 10 Siedans) BPI 8006 

Bg Vi6)=2V05) BPT 810 

eS 16) 215) BPT 420 

ee Tt6}2Ci5) BPT #3u 

5 CSQRt(6)2QSQRI5) Bret 840 

ROG) =ROUS) bbs 95u 

P(6)=P(5) bret $60 

GO TQ 30 BP 879 

C BPT 880 

Cc INITIALIZE LOOP VALUES IF PRESSURE ESTIMATE IS i SSIETIVE BPT 690 

Cc BPT 900 

20 CALL ARCSBL (P(6),PT(5) eHI5) ¢A(6),ROE6),CSQR(6)) BPT 910 

C16) sSQRT(A(6)%828QSOK( 6)7(Q50R(6)-AL6)9#2)) BPY 920 

Ul6}#U(5)+0U0X! 5) eDELX+ OUDY(5}*DEL Y*DU0Z2(5)*CELZ BPT 930 

V(6)2V 05) ¢O0VOX(5 ) *GELX*+ OVOVI5) *DEL YsOVOZ(S)*DEL2 BPT 940 
W(6)8W15) +OWOX(S )#DELX¢ OWDY(5)*DEL Y+OWDZ(5)*DELZ BPT 250 
CS*U(6) © 824 (6) 824N (6) $92 BPT °%60 

RATIG=SQRT(QSQR1 61/05) BPY 970 

UlOIzRATIOSU LE} BPT 9460 

Vib akATIO#yi6) BPT 396 

WG SRATIOOWI SG) BPY 1060 

39 XSeX(L) BPT1010 

Cc BPT1020 

c OBTAIN OUTER NORMAL AT PIINT(%) BPT1030 
Cc BPT164C 

CALL WALSB1 (X5,Y5,25,BEIX(G' »BETY(6),BETZ(6)) BPT 1050 

ASSIGN 40 TO NNN RPT 1060 

CO 270 Nel,20 BPTLO/0 

Cc BPT1O80 

Cc BPT1090 

Cc FIND COCROENATES OF NEW PRINT FOR ITH LTERATICN BPTLLOO 
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c SPYLL10 


TAUIS5 2-2 O8DELX/(UE5)2U16)) BPTLL20 
VIGOVAV(SI-UVC Gl Ov «5) D4TAUES) 72.0 BPT1t30 
Z2{6al(SP-iWE OdewE 5) DOF AUIS) 7/2.¢€ BPT1140 
Cc BPT1150 
C GBTAEN wALL POINT COOROINATES AND CUTER NURMAL AT POINT (6) BPYFILted 
L BPTL170 
CALL WALSUB UXCLLI,Y (61,2163 HE TX(6),8EF FY¥(6) pBET 206) 5 APTLLAO 
ALPRAXZBETY£6 Jeu 6)-BETZ Co) eVI4) BPTLI99 
ALPEAVEBETZi6 JOULGI-RETX (6; eHt6) BRT 12006 
AL PHAZ2BETX(6 Dev(GI-BETY Lo }eule, BPTI2Z10 
DENC=SQRT LAL PHAX 0424 AL PHAYO8 2eALPHATES2} BPT 1220 
ALPX(6)2AL PHAX/GEANO BPri230 
ALPYI6)2=ALPHAY/DEAKO BPT1240 
ALP216)=ALPHAL/PERU pPti250 
Cc BPT1i249 
DETS=BETX IOP s (ALP YL 6 JeWLbI-VIED PALP Z(G) )-ALP 16) C1BET E14) Aw (6)-BPS L270 
t VIO dSBETZL (61) +16 OCRETYL OD FALPZ (6) -ALP YEG IOBETZIOS} BPFL2RO0 
DETML=AALPY(6} *wlb -v {OD OALPZ EO) BPT LS 9D 
VET 22BETY( 6) FAL O Cie J-AL PVE 6) SHETIZ(E) BPTLI00 
DET 32ALP XO) OHI -SLODOALPL EO) BPTLs1O 
DET*G2BETX(G) SAL PZ(5 F-ALPXi6B) SBF IZ ERS APT E328) 
GET#S= AL PX lob tvt6)-JLE} °ALPY LO) BPEL 39 
DEY*HABETX (OD SALP Yo J-ALPK(ODEHETYLE} SPT i340 
bY 269 Jtled BPTLi399 
C epPhy340 
Cu Te Nets £40,597) APILsT 
C CPTI sHO 
¢ SNTTEACIZE INGFeR Lop QPy Lay 
(3 eerison 
40 GLisysuis) BPEi6h) 
VidsJdevedd Ppt lee 
wijlewlo) HOT L4 39 
Ctsd=C 19) BPEL446 
ALEX J )=oL PK (6) sPT1454 
ALPY. STEAL PYE 6) RPP LS00 
SLPZUyb=AL P26) BPT L670 
BETKL SIA SL TAL 6) ReTiGae 
SETY(JVSGETY(5) BPT14S 00 
BETZiJ9zHETZ(6) &BPTisou 
C BPTISLO 
- CARCULATOC TaulJ) FUR {T4 ETERATION Bet ys70 
is BPTiS30 
$0 GG TO (60,70,86), 4 RPT 1559 
c BePT1550 
9) CALPREC (6) *ALPXlo eC CLD OAL PXOD) 8PTID60 
£2 To 90 BPtT1570 
C BPT 1586 
70 CAL PH=C(8) OBFT X16 FeO E2V ORE TI 2) BPT1590 
co TO 90 @Pr1600 
Cc BPT1I6ELO ; 
60 CALPR=-C16 DOLL PX( O}-CE I) EALP RK 5) BPf1l620 
90 TAU( 3132.0 °(-DELX D/iULEDFULJ OC ALPHE BPT 1630 
Cc RPT 1640 
¢ CALCULATE vY(U) FOR TEE {TH ITERATION BPT1650 i 
Cc BPT 16060 
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aS a ee iia & 


CG TC (160.110.1203, 4 HPT EOTO 

Cc SPT loBS 
100 CALPYEC(OF PALP YES PEC HE PSAL PY Es BPTi690 
Go 50 {30 BPILIO0 

c APTIZI6 
110 TALPY=CTE) BET VIS POC (27 ¢BE TY 12) BPT1720 
ca fo 130 BPTIZ30 

Cc BPT1L7450 
120 CAS PY=-C(6 SAL PY( 53-CU 2S ALP (3) BPTi/75G 
co 19 136 BPT1749 

v BPTET79O 
139 Yedsevlobetiviolev(s1eCai ev ye taut j)/2.0 BPTivsu 
Cc HPEiTya 
C CALCULATE Z€3) FOR THE 7k LTER INN BPTILB090 
Cc BPTleiv 
GO TG {140,150,160}, J BPTLa2c 

Cc BPTLY30 
140 CALPLaCILP SAL PZEL PECL OPSALPT (6) BPTib4u 
so TO 170 BPHts595 

c ¥PT L660 
150 CALEZ2T(H) *BETZ65 2 4C§ 2) 9BE F212) BPI L675 
¢ 2PELEBO 
ca TO 170 BPT 1690 

c BPT!990 
160 CALPZ=-C(3PFALPZE3I-CL 6) FALE L (6) BPT1910 
170 EL SPaZ (ble (wl dea (SP eCALP ZO TAUL II/2.0 8PT1920 
Cc BPT 1930 
C CALCULATE VALUES FOR Uy Ve We Hy Pe PT. AND DERIVATIVES AT BASE BPRT19466 
Cc POINTS BRT WISE 
Cc SPT EIES 
UCSPMBCE, LIB QL ISVS ORCI, LIS ZISI OSG LPOVE SFL CSP BUS ed) MBPT EIS 

i VOSIOS2[+BL Get el( Spee? BPTL Is) 

Cc BPT LIAS 
VEISISBC LG 2I4BL 20274 V ESTOS, 2ST EID OBL 4 2D OV ESP OL SS 681542) MBPT 2079 

1 YEIIFF 24816, ZILLES) 802 BrTeo9 

Cc BRT 02% 
WESPEBCLe FPOBL [3 DOVC IVR 3, FES LELE B14, FV O KEI O26} 0B 1593) OHPT IC 390 

1 VESPO* 24806, F471 See? KPT 7046 

Cc BPE 2-90 
PESPAB LE RIBS eS DOVI SPECS SIELEI NOB p SIFVE SI EZ (ID OBES 69) CHP T2059 

l YOS)O* 24814, 4) 0Z2( yp ee2 RPT 2574 

Cc 8rT 2089 
PTC SIAC L, SIOBl 2. SIFVKSPTHCT,SVELE Shed d+ SPOVEIPOZ EID 6815.5 99 P17 2099 

t ®Y(JPO8248 (5.5 pert spse? BPT2100 

C BPT?ZI10 
HO SP*BE 1,6 280 256 VFVI SPORE 3, EDF Z 0S 4804 BDO YE Sel 69} 4815.6) BPT 2126 

t V¥ES19O29B1 6,6) 821 J) ¥82 PPT 2139 

¢ BPT2140 
QCUDY( JS) ©AC 2,1) 480 42198215342, 008815, 1)8 712) BPT2150 
OVDY1512B12.2)4804,2)92(374+2,. CHB IS 2385) BPT21600 

OWOY( 3)=802,33 4804, 3)9Z2( 312,088 (9,3)2Y( 5) BPT2L70 

OPOY(S}=8 62,9) 980 4,4) 9205242 08B65,45)87iS} BPT 2190 

DPTOY( J) 2802.5 )4+8 (4,5) 821 3)4+2.098(5,5) 9x05) BPT 2190 

OHDY (51286 2,6) +80 4,5)872( 2742. 08B (567K BPT 2209 

OUDZ(51"B( 3, 2) BC Se Li eV(s)4727, 008 f6,1)8209) RPT 2210 


OVDE(IS)=80 3,2) Bl Se 2) 9V( S142. OFB LE, 219203) BP T2220 


i ~ F 

3 

3 
OWOZ2 (3) 2BE 3,3) 0805, 32 FYE 5 142,096 E5, 3307105) BPT22 30 
DPOZIS 2803.4) BL GSD FVE SD 62,98 B LO APE Z ED) SrTZZ40 

EPTOL( Sd 2813 Sed lo, SFP EVE S16 2.08816 ,5)} 4205) BP 2250 x 
DHO2 (33281 3,6) 4B 4e6) F193) 42.088 16,5342 9) sH¥T 2260 
c 8FT2270 
Cc CALCULATE &, nD ANO CER ILVATIVES AT BASE POINTS BPT2280 
C FROM THERMODYNAMIC DATA BPT 2290 
c 3PT 2300 
CALL ARSGUB CPTI) PTC Sd Hts) ALS) ROI} ,QSQRIS) MAOP( J) ,DADFBPT 2510 
1 T£5),O0A0H( J}, DR00P153,0RU0PT1 5), ORCOH( J}) BPT2320 
CEFPASORT CAC IPE 27 8QSQRI SIS (EQSQR15)-AV 5) 8823) BPr2330 
Cc BPT2340 
€ CALCULATE SPACE SER VAT IVES USING ENTROPY AND ERTHALPY CONOLETIONS 8P1T2350 
C ALGHS STREAMLINE BPT2360 
Cc BPT e370 
QUOK( ID CROCS) PUL SP ey (sO (SD ORO (SPSL ges) eOU0Z (J)-V i seP T2340 
1 PEDPOYE Si —wl SI °OP 02 2d-RO1 I) SALI) OO IS(OVOY (93 oOROZ( 5) 21 / ERC (BPT 2399 
2 JIS AC gy} ee 2-Uisjee2)) BPT26U09 
Cc BPT 2610 
OVOX( FE -OPNV ISP -ROG I AVES) FOVOXESI-RC CUP ewe SP OOVOZ (S22 SEROBPT 246290 
t (3'8uts)) B8PT2430 
Cc BPT 2440 
CHOLES DAC -OPOZEZI-RCC IOV sd FOWO VE II-RCOC Sd ewe SP ODWOZ (SUS (RCBPT 2450 
i tsyipeutsil BPT2460 
c RPT 2470 
CPOK( g7*-PGUI CoC ZIEOUOK yd eVE Ls sOLOVE Jy eels eOuoZI sd} 6P 712480 
Cc 8PT 2490 
CHOX( 5) 20- VE SP SOHO ES} -wi Sd eCHOZ (Sd) /UE Ss) BPT2900 
c BPT25160 
CPTOX soe l Vis beNPTOVE dS} -ml 2) eOPTU20 3) ) sul} BPT25920 
c BPT 25939 
KEe(C lO ee 2/USCVU( EI BrT 2540 
K2s1.0eK! 4PF 2559 
C bPT2566 
CCOXE Sd=C( Jd 8 Set (DAGP ES) UP GXE SPP CADP TSI EOPTEXC SD +O SERIES) eBPT 2970 
i DHOXE JID EAT II FOF P-CUESIOOLOXE SD evi SOO VDX (5) ow SOOKE XK (5) ) /uRT 2580 
2 (QSQR(5)#¢2)) BPE Z590 
€ BPT 2600 
CCOVE dsCh IPF RCC (CAPE IVER OYE sie TAOP Ti SPOOR TOY ( J) eRACH( 3) 8827 2610 
i OHOYE SEIS CALS FFB P-EUL EP eULI VIS ev CS OOVD YES) Omi) DRDO (LS) ) /6r Feb 20 
2 LQOscrisise2zt APT 2639 
C BPT 2049 
CCHML spzC Shes Jet (CALE( SP OPP OZ (Ie TADPT ISP *OPTO2( J) ee OAT HES) eR PT 2650 
1 DHOZE SPI CALS 88 G- Cuts eoVdZi Devs eOvOZ (Sl omt sd eOnd 62) 0 /8P 12669 
2 {QSOR( J) F823) BPT 20°79 
C BPT 2658 
C CALCULATE YVAREATICN CFE ALPHA asO ALTA AT BASE POENTS eet 59S 
C SPT273u 
GO TO €1869,299,2063, 3 BET271G 
Cc aP12120 
189 CPTHOIL PECL EVSC BER KC 6 1OOC UAC LORE TY GP OCCOr EL) eBETZi&}*CCO2 (1BF T2739 
i ) RPT 2749 
UTHTsulol*eCio) sat PXi6) BPI?7$9 
VIFTzV(6}¢C16) -A: PYto) BPIPTE>D 
wT ew(o)*eC (6) 8A P75} aRPPETIO 


c BeTZF st 


190 


200 


210 


240 


UPTHCL)sC( GO) e( BET X(6)*OUDX(LISBETY(6) CLOVIS) *BETZ1(6) eON0Z( LEP 2/990 


») BPT2600 

BPT2610 
VPTiH’ LISC(O)*( BET X(OPFOVOXELIEBETY(O)SOVDY(1) 4¢BETZ(6) #CVO2Z(1BPT 2820 
y} BPT2830 

BPT 2840 
WPTHOEL)#C(6) ©¢ BET X06) *OWOX( LI CBE TYCO) CKO Y(1'4+BETZ(6) #ChOZ( 1B PT 2850 
y} BPT 2860 
GO To 210 6PI2870 

BeT28480 
CPTH(232C( 6) «(-AL PX 26)N0C0 (7 )~ALPY(6) SOCDY(2)-ALPZ16) *OCOZI3PS289C 
2)) BPT 2900 
UTHT2U(6)4+C(6) BF TX(6) BPT29:0 
VTHT=V(6)4C(6) SBF TY(6) BPT2720 
WIHT2W(6)4+C(6) *BC F266) 8PT2930 
UPFHE22£C(6)4(-AL PX(6) *DUDX( 2)-ALPY (6) *OUDY(2)-ALPZ (6) *0UD2Z (BPI 2940 
2)) HP12950 
VPTH(2)=C 16) #(-AL PX(6)*0VOX(2)-ALPY (6) ©DyYLY(2)-AL PZ (6) OCVOZ (Bp T2960 
2)) BPT2970 
WPTH{2)=C(6)4#( -AL PX(6) *OWOX( 2)-ALPY{(6) *OWDY(2)-AL PZ (6) *CwOl (BPTI 2980 
2)) BPT 2990 
GO TO 210 Bprso00 

epr30l0 
CPTH( 3 )=0(6) *( -BETX(6)*0CDX( 3)-BETY(6)*0CUDY(3)-BET2 (6) #LCOZIBFI 3020 
3)) BPs 3030 
UTHT=U16)-C(63 AL PX16) BPT 3046 
VTHT=V (6)-C(6) #AL PY(6) 867305) 
WIHT =t#(6)-C(6)4AL PZ(6) BPT5C60 
UPTH( 3 )=C16)%(~BETX(6)80UDX{( 3)-BETY (6) SOUL Y(3)-BET2(6)} *0U0Z(aPT 3070 
3)) BPT 3080 
VETH( 315016) *(-BE IX(6)*OVOxX( 3)-dETY(6) #0Y0Y(3)-B5E 1Z2(6) *OVOZ(BPT 3090 
3)) 3PT3100 

BPT3110 
WPTH(32=C(6)*(-BF TX(6)*OWOX( 3)-BETY(6) *DWDOY{3)-BETZ(6) ¢OWOZ(BPT 3120 
3)) BPT 3130 

BPT 3140 
UTHET( JS) 2UT. TOT OX( SD eVIHTOOLOY( J) +H THI *0U0Z( J) PT 3150 
VIHET( SPSUTHISOVIX( SP +VTHTENVOY( SI +WTHTeNvOZ{ J) BeT 3160 
WIHET( JSIHUTHTSCWOXI SI) ¢VIHT#OWDY ( J) OW THT OD ROZ (J) BPT3LTO 
B3E-( UE JIE ALPX (OD EVI JD FALPYE EG) OWI SD *ALPZ(6))/TAUI YS) BPT 31460 
GO TH (220¢2302240)% J BPT3190 

BPT3200 


AGeKLO(BETX( OG) FUT HETILICBETY (OIE VIHE TCL ICBE TZ (CO) OE WIHETOL))-KBPT 3219 
ZFC ALPX( GO) FUPTEC(LITALPY(G)EVPTHILICALPZ(6) HP TH(LI)-CPTH(L) PBPT 3226 


KL/C16IS(U(6OUPTH( EL) eV (6) *VP THO 1) eH (6) SHR Er 1?) BPT 3230 
B1=84/C(6) BPT3240 
GO TO 250 BPT3250 

BPT 3260 


B4e-K 1 (AL PX (6 DHUTHET(2)+ ALP Y(6) *VTHET (2) +ALP 216) SWTHET (2))-BPT 3270 
K28(BETX(6 SUP TH( 2)4+BETY(6)*VPTH(2) +BETZ(6)¢WPTHE 2) )-CPTH(2 jBPT 3269 


+K1/CLGIF(U(G) FUP THE 2) ¢v( GIF VPTHI 2) +W(6)eWPIr 2)) BPT 3290 
81=B4/Ct6) BPT 3300 
GO TO 250 6PT3310 

BpPT3320 


Ban-K LO (BETX(6 4UTHET( 3) + BET Y( 6) *VTHET( 3) +68ETZ(6) @WIHET (3) )+6PT 3330 
K2*7 ALPX(6 DSUPTH( 3)4ALPYi Ede VPTHI3)+¢A4LPZ(6) #WPTH(3)) -CPTH(3 RPT 3340 


Oaa 


aan 


260 


Oaan 


Manan 


Con 


c 
270 


280 
c 
c 
Cc 


2 *KE/C(6) F( ULE) FUPTHU Sd 4 V1 GIO VPTHIS} en 6} eHWPTHI3}) 
812B4/C(6) 


SULVE SIMEILTANEQUSLY FOR ALPHA VARIATION FROM PT£6 TO BASE POINTS 


ALPIX( S)2(B1SDETH L¢B320ETH2) /DETS 
ALPTY{ J3=- (B1*DETH3¢63*DE TH4)/DET4S 
ALPTZ(S)2(BLEDETHS +3 340ET HG) /DETS 


CALCULATE THE ALPHA ANO BETA COMPONENTS FOR ALL J 


EALPXSALPX(6)4ALPTX( JS) * TAU S) 
EALPY=ALPY (O)4ALPTY(JS)*TAU(J) 
EALPZ=ALPZ (GD FALPTZ( 5) *#TAULS) 


NORHALIZE ALPHA TO MAKE UNIT VECTOR 


NORMzSQRT ( EALP X56 2HEALP YR S24EALPZO42) 

ALPX(JS)ZEALPX/NOZH 

ALPYIJI=EALPY/NORK 

ALPZ(J)#EALPZ/NORK 

QiSd=SQRTIQSQRI9) ) 

BEYX{ S=- CAL PY IS) SHI SI-ALPZOSIEVISSI/QI 8) 

BETYE Sd) e—( AL PT (5) PULLS ~ALPXO SD OWI SID /O0S) 
BETZ(IS) =~ (ALP XC 5) SVC SE-ALPYE SI8U0S)I/008) 
ASSIGN 50 TO NAN 
PTEST=P(6} 


SOLVE COVPATIBILIEY EQUATIONS 


CALL BCOMPT 
QSHU(6) Se 2e¥ (6) F240 (6) 582 


CCAVERGENCE ACCELERATIOCN( REDUCES OVERSHOOT! 


P(G)=(P(G}EPTESTI/2.G6 

CALL ARGSBL (PLO) sPF 05) eHI5) AC 6)sROIE) ,QSQR(6)) 
C16 bESQRT (QSQR(6) Al 6) 82/(QS0R (6)-A( 6) #42)) 
KATIO#SORT(QSOR(6)/9S) 

U6 FRAT INU 6) 

V6) =RATIOFV( 6) 

W(6)2RATIOSW( 6; 


TEST TO SEE TF CONVERGED 
TF £2.0#ABS(P(6)-PTESTI/SPTEST-ERROR) 260,2802270 
CONT i NUE 
CALL ERRORS (12) 
Cl6)#SORT(OSQR(6)) 


CALCULATE XSTEP REGULATING PARAMETER 


BPT 3350 
6PT 3360 
6PT3370 
BPT 3380 
BPT 3390 
BPT 3400 
BPT 3410 
BPT 3420 
BPE 3430 
BPT3440 
BPT 3450 
BPT 3460 
BPT3470 
BPT 3480 
BPT 3490 
BPT3500 
BPT35i0 
SPY 3520 
BPY 3550 
8PT3940 
BPT3550 
BFT 3560 
BPT35 79 
BPT3580 
BPT 3590 
BPT 5600 
BPT 3610 
bPT 43620 
BPT 3630 
BPT 36040 
BPT 3650 
SPT 3660 
BPT 40/0 
BPT 4680 
CPT 3690 
BPT 3/00 
BPT3/10 
BPT3/20 
BPT 3/30 
BPT3/40 
BPT3750 
BPT 3760 
BPT3770 
GPT37480 
BPT3790 
BPT 3800 
GPT 3810 
BPT 3829 
BPT 3830 
BPT 3840 
BPT 3450 
BPT3860 
BPT 3870 


CXOL=U(6)842716CE G5 4Q16) 3 712,0-C 66) /Q06) FSQRTLABSI(QSORI6)/U(6) ##2-1B8PT 3880 


1.09) 
Y¥orY¥(6) 


BPS 3890 
BP T3906 


Ay ens 


2é21(6) BPT 3910 
U6sU(6} 8°13920 
V6=V{6) BPT 3930 
WOeMI6) BPT 3940 
PozPt6) BPT 3950 
RETURN 8PT 3960 
ENO 2PT3970~- 
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SiRETC BCOMPT 


SUBROUTINE BCOMPT eco 10 

Cc 8CO 20 
Cc SSSSKSKESEES FEES EOE EEE SHEESH EEHSHESHSES SOO SHSHESEKSEEE VEL STECEREE 8C0 30 
Cc 669 40 
Cc SOLVES BOUNDARY POINT COMPATIBILITY EQUATIONS eco 50 
Cc 8CCG 60 
Cc PSAESHEKHSESSSTSCE SHOEREE FEKRTESEESTEEEEHASOCE SESE SES SEEEEE EXEC OEE EHRES 6CO 70 
Cc BCO 80 
L EMENSTON €(3,3)—5 O(43,33,5 8(33, OETIS) 6CO 30 
CORMON /PTSUB/S Y¥(6)521614U16) 0V 06) pWi6d P16) oe PT (6) ,H16) ALG) RU(G}8C0 100 

£+C (5) ,Q(6)2QSQR( 6) »OLOX £6). DUDY (6) ,0UDZ(E) ,OYOX(6), OVDY(6) ,0V0Z(6)8CO 110 
2eCWOX1 6) -OWOY( 6) eCHOZ(6 },0P0X( 6), D0PNY(6),0P0216) eOPTDX(6) »OPTOY{6IBCO 120 

3,0P 702163 ,0HDX(6),0HCY{ 6),9HDZ(6).0C0X%16) ,UCOY(6) -DCOZ(6) OAC PI6},8C0 130 
4CAQH(67 e0ADPT(6) «GRODP( 6} ,O0RODPT(6) ,ORODH(6} sALPX(6) sALPY(6) ,ALPZ(BCO 140 

$6) BET X(6) eBETY( 6) BETZ (Gs ALPITX(6) ,ALPTY(6) ,ALPIZ(6) ,CPTH(6) ,UPTHBCO 150 

O14) ,VPTHISIWPTHE 9) UTHET(4G), VTHET- 43,5 "HETI(43 5 TAUC 6) pADBDS ocN 360 

c BCC 170 
Cc CALCULATE CUEFFICIENTS FOR samp LTANEOUS DIFFERENCE EQUATIONS FOR UBCO 180 
C BCcO 190 
PROLEBIXCLI SIC BEFXCL PeDYOXCLI*BETY( LIS (OVOXILPODUOYC LI eBETZI(1)41{08CO 200 
LwOXK(L} eOUDZL EI) +BETYCL SOC BETY( LI*OVOYCLIOBETZIL) FCOWOVI(LI+OVOZ(1IBCO 210 
ZPPOBETZILISBETZILI*ONWOZ (1) sCO 220 

Cc BON 230 
OBL" BETX(3)*( BETX(3)*GYCX( 3) 4¢BETY( 596 (OVOX{ 33 +DUDY(3))¢RETZ(3)*(0BEC0 240 
1WOX(3) 40U0Z2(3))) +BETY(3 DOC BETY( 314 OVNY(3)48ETZ13)e(OWDOY(3)*¢0V02(3)8CO 250 
2))+8ETZ13)¢BETZ03) *0nD2 (3) 8CN 260 

Cc BCO 270 
BAO2RALPK(2) LAL PXE2380UCK( 2) ¢AL PY( 2)4(D0VDX(2)*#OUDY52}) +ALPZ(2)%(0BCO 280 
§WOX(2) #OUDZ (27) ALP Y{2 DEC ALPYL 2) *0VOY(Z)4ALPZ62) *(OWDY(2)4¢0¥V0Z2(2)8C0 290 
2))4ALOZ(2)*ALPZ262) 90nd (2) BCO 300 

c 8CC 310 
Cc BCO 320 
RC62RO(6)4C( 6) 8C0 330 
PCLSROCLIeC OL) BCO 340 

RC SzROI(2) CC 2) BCO 350 
RC32RO(3) OCC 3) 8CN 360 
ACSeRO(5)4T(5) BCO 370 
RCAX6=RCOFALPX(6) BCO 380 
RCAYO=RCOFAL PY(6) BC 390 
RCAZG#RCE PAL PZ (6) 8cn 400 
RCSXG*RCOFBETAIG) 8CO 410 
RCBY6=RCESKETY( 6) BCO 420 
RCBZ6zRCG6*BETZI6) BCO 436 
TLE2Z,OFP( LIF(RCAXG*RCLOALPX( 1) IFUL LIF (RCAYE*CRCLOALPYOULS DEVILLE} CRCABCO 440 
PZGOFRCLSALPZ CLD EWC LDERE LOCC Ll) *UBOLeTautl) 8CO 450 
CZ2=2.09P62)¢(RCBKG4RC2¢ RE TXE2) PUL 2) vs RCBVGCRC2ZSBETY(2) DEVS2}~(RCBBCO 460 
LZO4EROZ29BETZIE2)) WC 2) 4RE 24C( 2) €AADZ*TAUL2) sco 470 
C3=2,.0P(3)-(RCAXGORC3I*ALPX{ 39) Ul 3I-(RCAYG*RCIEALP Y(3) JO V13)-({RCABCO 480 
LZ64*RCZ FAL PZ (3) Dew 3) CRE 39C (3) SBROSe TAU) 8C0 490 

C5 2=2.009(5)4 (816) 4U(6) ORN(5)4U(9) OULSD {RICE VIG) +RO(S) OY(5 .*VBCO 500 
115)4*(RO(6) 4H (6) 4+RO(5 24415) 38005) BCO 510 
C622.04P(5)*RCS9C(5) PAD BES TAU 5) 8CO 520 
ST3L=CVAUCL) ¢TAUCZIISTAUELISTAUC3) BCU 530 


CH3L=(TAUC3I-TAUCLII/STAUC3IESTAUCS) BCU 540 


Oa 


TL25a(TAUCELD TAU 2) /TAUCES @TAU(2)-L.O0/TAU(S) BCO 550 


OCR BOL/TAUCL)-O03/TAUC3 )-9580T 51 bCO 560 
@42)#0.0 BCO 570 
BUSPEOL/TAUC L240 2/TAUL2 1-D6/ TALIS S)-058 7125 BCO 580 
OC Leh PERCAXGOSSTILE(-RO( 6)SU(6)-ROCS!9U(S) )*OT3ILERCLSALPX(1)/TSU(1)8CO 590 
LERCZEALPX(3)/TAUC3} BCA 600 
COL,2) #RCAVO*ST314(-ROL ODOV(6I-RGI ED VES IOOTIL+RCLEALPV(LI/TAUIIIBCO 610 
LORCZSALPYi 31 /TAU3} 6CO 620 
Of be 3) ekKCAZESSTILA“(RC(6 DOW (GIFRO(SICS %, FeOTZIVREISALPZILI/STAUCLI4¢BC0 630 
URCZSALPZ(33/TAUC3) BCO 640 
Cosel) sBETX(6) 8CO 650 
C(2,2) -BETY(6) 8CO 660 
C(2,3)=8ETZ(6,; BCO 670 
O43,2)=RCAXGs FAUC LI #RCSXO/TAUL 2 )-( RG 6 FUG) 4RO(5) 405) ST1L25¢RC1SBCO 680 
LALPXCLISTAUL LPERC24BETK I 2)/TAUL 2) eco 690 
C6392) ©RCAYO/TAU(LIFRCBVO/TAUL 2 I-( ROCK IEV ISPS O(SI9Y(5) DeTEZ5eRCL BCD 700 
LALPY(LI/TAUCLI ERC ZOBETY £2) /TAUL 2) 8CO 710 
C(3_3)=RCAZG/TAUIL) +RCOZ6/TAU(2)-(RO(5 12 (6) ORG 51eW(5) ETI 2Z5¢#RCLEBCN 720 
LALPZOLI/TAUC LIER C2SBETZ(2)/TAUI 2) BCL 730 
eco 740 

SOLYE SEMEILTANEQUSLY FOR NEW VALUES OF P,UeV,# F POINT(S) 8CO 750 
BCO 760 

CO 90 wales eco 770 
GO FO (10,30:50570), 4 aco 780 

00 20 J*1,3 BCO 790 

00 20 t#l,3 BCU 400 

EC del eOl Jel) BCU 810 

GO TO 96 BcO 620 
BCO 630 

DO 40 J=t,3 8CO 440 
E(J,3)"649) 8CO 650 

Go TG 90 RCO 660 
8CU 670 

00 60 Jj=1,3 BCO 380 
£(393)=00 523) BCL 240 
€(5.2)=8( 5) 8CO 900 

Ga TO 90 BCO 910 
8CO 920 

00 80 Je#l,3 BCU 930 
E(3e2)200 Jee) 8CO 940 

Et seb) =B( 5) BCO 950 
CETCMI=E(E,LISC(E (202 )8E (3, 3)-EC de2)FEC Sr 3d I-ECL e2dH(E (201) *f (3,3) -BCO 960 
LELSLIFEL Se FIIOE CL 3IFC EC 2, 1NOE (2, 20-E 0591 1E 625235) BCO 970 
U162eDET(4)/0ET( 1) BCU 9890 
VIOIEGET(SESOETC 1) BCO 9SU 
W(63eGET(2)/0ET0 2) BCC1000 
P (65 = (55-U16 )#( R016) SUL 6) ROIS) OU 5 D)-VI6 DF ROLSI EV IG) eROIS) ¥¥¢5) IBCOLOIO 
1~W(163 (2006) OW 16) 4RO(5) H6529972.0 8C01020 
RETURN 8CN 1030 


END BCU1040- 


is 


eee wr 
ww eee 


oer er 


SORIGIA Cc 
$I8tTC INTER 

SUBROUTINE ENTER INR 
c INR 
Cc SHREK SESE VOEKEE RACE SES SOKSEFES EEE SESE EEO G EEO EEEOEEEEESHSEESESD Ing 
Cc INR 
C INFEGRATICN OVER INTERIOR POINTS OF SOLUTIGN SURFACE INR 
Cc INR 
C SHSESEEOSEVEOAHEEEAEE SES SESETHEFKESC EHS STOSSES SHORES SESEEEESE TESS OE BESS {NR 
Cc INR 
COMMON SSGLUTNS Y¥029196 19d e720 Se LD LID UL 2g LILI) pV Sel Gel D) gh(2e1LDENR 
Leb ePl2glDe LFV PTL LGr EDV HE LG, LY) -RLASS( 19,19) TNR 
COPMON /XRGLT/ RHC 2,19, 19) ¢DXDL 12.19.19) ,EXCNIR sDEL XPN, PPM NAN, SAFINA 
ily INR 
COPMON /CHTRLS PRINTL PRINT 2 ERROR GC IVSTY ICLASS eNP ANT all pdleb eit ce INR 
LAS TART ,DELX » UDELL X, KK X42) —¢XMAX, NU INR 
{tl=ene INR 
{F €ICLASS.GT.2) Fibant-} INR 
Ji=2 INR 
JJLENP ENR 
TF (SCLASS.EQ.4) JSJIENT-1 ENR 
CoO 10 342,181 TNR 
fF (CHCLASS.CQ.1) slat Tar 
CO 10 JeJleJJl INR 
(lel LuR 
JJEJ INR 
CALL TPTSUt (Vi Le fet de Zth abe Se PEE Soothe Se Vitb ol et) Ztheel cI NK 
1 Sv eUIL oe Le ddeVilb obs SP eWCEL  LeSd PULL, Fed) pOXUL ILL oT oe JSd) TNR 
10 CALL XRGLER (bolts t,J) INR 
RETURN INR 


ENO INR 


$StBFIC IPTSUB 


SUBROUTINE FPTSUB (Y5,25sPT5sH5sVOel6e los Vbeb6ePbs0XDL? ier 10 
Cc frr 20 
Cc CORFE HOESE LES ESE ALES SEES SESOSESSOESES SEES ESCHHEEE SLE EOD OEHEEERESE sPT 30 
Cc 1Pr 40 
Cc CALCULATES A NEH INTERIOR POJNT OF TRE FLOW FRCE VATA STORED IA THE [Pt 50 
Cc THREE OL MENSTONAL ARRAY SUs Ve We Pe PT, AND H {pT 60 
Cc ter 70 
Cc SPO PESHESS SES OEHE ESE E SEE SHEHESES ESE SESS ES FLESCH EOESESISSESEESE OSL tpt €0 
Cc 1Pr 90 
COPHON /QTSUB/ ¥(6)-22(6),UL6) VI 6) sW16),P (6), PT (6) ,HI6s eA(6) -ROLENIPT 100 
120 (6),9(6),QSQK{ 5} ,DUDK (6) ,OUDY (6) ,DUD 216} -—OVEX(6) sGVDY (6) ,OVOZF6)IPT 110 
2, DwWOX(6),0WDY(6) »DWDZ15 ) -OPDX(6) POY 6) sDPDZ (6) sDPTOX(6) ,DPTOY(6IIPT £20 
3eDPIO2 (6) eOHOX(6) -OHOY! 6} s0HDZ(6),OCCOX{(6) sOCCY(6) ,0C02(6)} ,D40P(6,,1FT 130 
SCADr (6) sDANPT(6) ,DRODP( 6), ORUDPT(6) ,ORODH(6) ,ALPX(6) eALPY(6) sALPZ(IPT 140 
56) sBETX(6) BET Y(6) BETZ (6), ALPTA(6) sALOTY (6) pALPTZ(6) sCPTH(6) »UPTHIPE 150 
OSD VPTH(49) ,WOTH(4),UTHE L(G) SYIMET(G) pRITHETIG}, TAULO) ,ADBDS trT 2160 
COMMON /CNTRL/ PRINT IZPRINT2, ERRORS IVSTYPy ICLASS eNP NT eI sJJe LiL, LPT 170 
LASTART pDELXs ODEL X,KK »X( 2), XHAX,NO IPT 140 
COPMON /INTRP/ 8(6,6) ipy 190 
REAL NEUM,K1 »K2_e NORM NY NZ {Pr 200 
INTEGER PRNT1,PRNT2 fpr 210 
Y(5)275 IPT 220 
Z2(5)#25 {PT 230 
C4&ALL INTERP {pr 240 
Cc pr 250 
c INTERPOLATE FOR VALUES Af POINT (5) 1Pf 260 
c {PT 270 
UCSIEB LLIB Se LIFV(S5) 4B 3, LISZTISIFE(G,LICV (S215) ¢B( 5,1) #15) eeIPL 280 
1248143) #215) 82 IPT 290 
VO5) BBC Le 294 B62 0 2I8Y (524813, 20825148 (4 2dEV(SIEZIDOI FBS e2)AVIS) Sa Pl 300 
12¢8(6_,2182(5)8e2 eT 310 
W538 (1,3)4802. 3) FV (5) 4B13,3)0215 4B 14,3) F415) 4215 )4B(5 3) (SIOeTPT 320 
1248(653)42(5) #82 IPT 336 
PIS 2 8B61 4) 4B1 22 SP OV ISP 4B 3G PFZ (SDB 14 SDOV(SDOZ(S5 4B (5 eS) OV IS) esIPT 340 
1248(6.4)42(5)} 082 tpl 350 
PT(5) PTS tpr 360 
H(5)8H5 tet 370 
Cc Cpr 380 
Cc CALCULATE PARTIAL OERIVATIVES FOR THE DEPENDENT VARIABLES [PT 390 
Cc tPT 400 
CUDY(5 8812, 2348 1451)82 (5)42,088(5,1)*Y15) tpr 410 
CU0Z(5 )9B13_.1)4814_,1 97 (5942.008(6, 119215) TPT 420 
CYDY(5 )2B(2,2348 (4,2 142 (5)42.088(5,2}¢Y15) 1?T 439 O 
OV0Z(5 )#8(3, 2148 14,2 397 1(5)42.0081(6,2)*2(5) IPT 440 
OWOY (5 )#B12,3)48 (4,3 182 (5)42.0481(5.3)4(5) tet 450 
CWOZ215 12863, 3)48(4,3)4V(5)42.068(6, 3)*7(5) IPT 460 
CPCY(5 )8B(2.4)4B (4,4 42 (5142.008(5 44) V15) Pr 470 
CPOL(5 12813.4)4+8(4,4 )0V (5)42.00B816,4) 4215) TPT 486 
c IPT 490 
CALL AROSIB (P(5),PT(5) «H(5),A05),RGI5),CS0R(5),DADP(5) -OADPT (5) ,OLPT 500 
LADH(5) .0°00P 45), ORODPT( 5), ORODHI5) ) rPr 510 
CUS) 2 SORT(A( 5) ee 2eQS0R(5)/(0S0R(5)-A(5)9#2)) ipr 520 
c fpr 530 


CUOXES (RECS OUL5 DEC VE Sd eOUDY (5)4m15)8DUDZ(5))-VISISDFOY(5)-WiS)eIPF 540 


1CPDZ(5)-ROU5 AL 5) e286 GVDY(5}40W02(5) 97 /(RO(5) 6 (A(5)082-U(5)ee2))1PT 550 


Cc LPT 560 
CVOX(5 }#(-DPDY(5 )-RO(5) eV (5) *DyDY(5)-RO(5) OMS) eDVOZ(5) PJ (ROMS) MULTPT 570 

15)} IP 580 

Cc tery 590 
CwOX (8d (-GPNZ(5 }-RO15) #V (5) SOWDY(5)-RO(S EWI 5S) eOnDOZ(5))/(RO(SIeUCTPT 600 

id)) {PT 610 

c {PT 620 
UUD5£U (5) #10 (5) 0UDX 15) 4¥15)*(OVOX(S) 4DUDY (5) )+n(5)} F(DNOX(5)4¢DUDZIIPT 530 

LSD PEVI5S DOF V (5) 4 DVOY (5) HI 5) *(DWDOY (5) ¢DVOZ(5) Db eH (5) © (SS *DRDZ(5) TPT 640 
ADBDS5=DUDX (5 }+OVOY{S }4DHD2 (5 )-UUD5 /QSQR(5) rPT 650 

C 1PY 660 
CPDX{(5 de-RO(514( U5) eDINXI 9) eV E57 *DUDY (5) +605 )*bUNZ (5}) [Pr 670 
CELY<DELXeV(5}/U(5) pT 680 
CELZ=DELX#w(5)/U(5) IPT 690 

P16) =P (5}4+(OPOX(S)*DELK DP T1557 SUEL Y*DPD2Z15)90ELZ)/3.0 IPT 700 

c 1pPpT 710 
C INITIALIZE LOOP VALUES {pT 729 
Cc {Pr #30 
1& (Pi6)) 10,10, 20 IP? 740 

10 U(6)=U15) rpfr 750 
Vlo)=VE5) ret 760 
wl6)=K(5) [el 770 
C(o6)=C5) ret £80 
CSGRI6)=QSCR(5) tpt 790 

ROO} =R9(5) [et 300 
P(61=P(5) let oto 

GO FU 30 IPT 620 

Cc fer v3o 
20 CALL AROSB) (P1O),PT 15) HI 5) eACG),RO(G6),CSARI6) ) (yT uG0 
CIGI=ESURT(AL6}** 24QSCRIGI/S(USOR(6)-Al6)#92)) {Pv #Su 
06)2U (5) 4NUDX%15 )*DELX+ OUDY (5) *DEL Y*#0U0Z2 (5) *DELZ IVT 860 
V(6)2V09) ¢OVDX(5 ) #OELX¢ OVOY(5) *DEL Y*4OVOZ(5)*CELZ Ter 70 
K(OD=H(5)4OWDX (5 )OPELX¢ OWOY (5) @DEL Y*OWCZ (5) *CELZ IpT #0 
CS=U(G)##24V (G6) 882 en (6) 92 ivy 490 
RATIO#SORT(CSOR(6)/05S) {Pr 900 
LIG)FRATIOSUC6) let 91G 
Vlol=RATIG*V(6) rer ©20 
h(6)SRATIOCW (6) iyt 930 

30 SSIGN 40 FO NIN tpt 940 
Cc let 950 
Cc ORL ENT NETWORK wee. Te. PRESSUKE GRADIENT PROJECTION CN THE Y-Z2 PLANE IPT 9600 
Cc iret 970 
SLEP=OPDL(5)/DPDY(5) (pr 980 
ACUM=SCRE( 2.0401 .04SLUP 92)) [pr 990 
NYs(},0¢SLOPI/NEUM TPTLONO 
\2201,0-SLCOP)/NEUM TeT1610 

CO 320 nel,20 IPFLO20 

C 1eT1030 
c 1PT1040 
Cc FIND COORDINATES OF NEW POINT FOR ITH [TERATICN PPT1059 
C tPT1L060 
TAU(S )&-2 .OSNELX/ (U0 5341 6)) rpeT1070 

Y(OUAVOS P-(V0GFOV05) )eTAU(S)/2.€ Tet 1080 
2(6)#2(5)-(W06) ow (5) D©TAYUI5)/2.0 1P T1090 

Cc PPTL100 


198 


c ESTABLISH SYSTCM OF RE: ERENCE VECTORS, A AND 3 PRTILIO 
C PPTL120 
Cc PPTri136 
NEUMsSORT (CMY eU(6) Ie #24 (NY Ow (6) -NZ9V16) )e82¢ (NIOUL6) )9#2) fPTlb+u 
ALPX(6)=(NVOn (67 -AZOV(6)) /NEUR £PT1150 
ALPY(6)=(NZ0U(6))/NF UM PPTLLOS 
ALPZIGO)=(-NY®U(6)), TEI: TPTIL70 
DEND=SQRTIQSQORTE!; [IPS llbo 

BETX(6)= 0416) FALPZ(6 J—-W16) SAL PY (6) ) /DENO PPT1’LYO 

BETY(6)= (Ww16) CALPX16 $-U(6)%4LP2 16) 1 /DENOD tP1L200 
BET2(6)=(UL6) FALPY'6 J-V16) CALPX (6) ) /DENC IPTIZ10 

Cc feT1220 
DET4&=BETX (6) 4 (ALPY (6 OHI 6}-V 161 8ALPZ16) PHALPA(O) F(BETY (GO) On (6)-1TPT L250 

1 V(6)*BETZ (6) ) 4U(6 DFU BETY( 0) ALP ZI 6) MAL PY(6 #5 T216)) EPTI2469 
DETHIZALPY( 6) 4016 J-v (6 )¥ALP2 (6) 1P11250 
DETH2=BETY(6) ©ALP2 (6 )-ALPY(6) *8CTZ(6} fh. 12606 
DETH3=ALPX(6) #16 1-0 (6) €ALPZ LO) per1276 

DE THMS=HETX(6) SALPs 16 J—ALPX(6 )OBETZ(&) behy24o 
DETMS=ALPX(6) *#V16 —-ULE)#ALPY LO) TPT1L290 
OETHO=SBETX{I6) SALE Y16 D-—ALPX 5S)OBSTY(6) Ir P ito 

DO 310 J=le4 PPELsSt9 

c IPTY320 
GO TC ANN, (40,50) Pr tbsdu 

Cc eT E349 
C ENITIALIZE GANER LOOP IPELS5O 
C P¥l ison 
40 UC JS}=U05) Ppiis@a 
ViJ)sV05) fetisas 

W(J)}=W(5) PetEs eG 

C(s)=C09) PHT T4A06 

ALPX( 3 J=AL PX(6) prraels 
ALPY(JISALPY(6) ie liaey 
ALPZ(SI=ALPZ(6) fess 3) 

BETX( JS J=RETX(6) pevpeee 

BETY( J )=Be 7V(6) fT 1690 
BETZ(JISBETZI6) IPTI46466 

c 1PTiS 79 
i CALCULATE TAuU(J)} FOR ITH ITERATION PPTIGAO 
c PP114-90 
50 GO TO (60,70+8C.90}, J PESO 
Cc eT TSG 
60 CAL PH2AC(6'#ALPX16 DOC CLIEALPXOUL) (P11529 
GO fa 106 PPT 1530 

¢ PPT 1949 
70 CALPH=C(6} *BETA(6 DCE CPOBETX (2) TPT 1999 
GO TO 10% 1PT1560 

C feris79 
80 CALPR=-C 16) PAL PX(6)-C13) *ALP X13) ve ELSHO 
GO TO 103 PPT ES9O 

C IPTL6E00 
90 CAL PkE-C (6 DORE IXIL6I-CI4SDEHETX(I4) IPT IOLO 
100 TAU SI—“2.0°1 -OLLX (CULO) ULI) CC ALPRS PP T1620 
c EPTL630 
Cc CALCULATE ¥(13) FOR THE [FH ETERATION 1PT16490 
c 1P T1650 


GO TO (110¢120-130,140). J EPT 1669 


“ 


CALCULA 


CALCULATE 
POINTS 


IpTis To 

CALPY=C{6) SALPYI6 D4C{LIPFALPYLL) {PT los 
GO TG 196 IPT toOyv0 
rPYis00 

CALPY=C(6) BET Y{6)4C(2)9BETV (2) tPTr1710 
co TO 150 PPT L200 
PPFLT30 

CALPY=-C(6 DOL PT( OI-CE3)*ALPY( 3) 1PTL740 
co 10 150 IPTL/50 
1PFL760 

CALPY2-C16 ) CBETYI 6) -CIGIOHETYI4) teriz7o 
YEJIV=V (CO) e(V06 dev (5) OCALPY )* TAU I) /2.0 1Pri7eo 
perio 

TE 2ZES$) FOR THE 1h TTERATION TeTEB00 
PTis10 

GO FCO (160.170,180+190), J tPfig20 
seT 1230 

CALPZ=ECCIL) SAL PZT DAC (ES FAL PZ (6) feTLesO0 
cO TO 200 1°T1u59 
LPT Lsb0 

CALPZ=C16) SBETZ(6 94C(2)*BETZ (2) LPT 170 
GO 1G 200 Pr Leso 
TP PineO 

CAL PL=-Cl 6 FAL P2Z( 6)-C 13) "ALP 713) Pr1y9o0 
GO TQ 200 PeTLV1O 
PeFi970 

CALPZ=-C(6) *BETZ(6)-C14)°BETZ14) £1930 
21 5d=2 (6) CaO ed SP CAL PZ De TAUEII/2.0 tpt. 940 
TPrivso 

VALUES FOR Uy Vy We Hy Py PT, AND DERIVATIVES AY BASE feTivoo 

1ePT1970 

PPT1I980 

UCSPSBCL, LOC 207 OYE SIO E3s LIS ZCI OFS e LIFVI SIOZ (ID 4B15,) OEP TI990 
¥(S)**2+B( 6,1) #2 See? Per 2o06 
LPT201I9 

VOJPFBOL 22900242 2FYCSDOBE 3S, 2082053 4B (4  2PISV( SOT (I04B 15,29 01 PF 2070 
VES) PePehlo,2e7( Jee? iPT 20 30 
TPT 2040 

ACSIFB LED F4BE 2,32 *Y CS 4903, 308721994804, FDC SD OZ (9481543 OTP 12550 
YUI}**2¢B06, 3042051902 Tpr2069 
PPT 2078 

PEIFAB03 641481205 HV (SF HB 132 SIS LEV O BIA SIEVE SIOZ (ID48 15,4) CTPF 20KN 
YES) *#246(6,4) 22) SE 882 PPfz2290 
1PF2106 

PTE SPHABEL, SS4+BL2, DIOVISI*A(ZeSIPELC TERS SDOY (IO ZI Se BIS sSDIPTALIO 
#Y¥(J19824816,5 sel (J) a#2 TPT 2120 
1PF2130 

HI S93 B61,624B0 2,6 FY OSD OBL 3, SP87 (D464 GOT ( SPFZ (SOB IS 6) HEP T2160 
¥(519#246(6,6)427{ J) ee? fer2rso0 
IPTZL69 

OUNY(S)2802,17 480 4,13 *Z2( F047 O8BI5, LIFES) PPT2170 
CvDYiJ)28( 2, 224806 4,2)77(5)4+2.08R(5,29*Y (9) PPr2iaG 
GHOY( J )=B0 2,3) 4804, 3)*7(5342.0°8815,3)}¢Y(5) 1PT2190 
DPOY (334200244) 481 4-49 4215 942.0#B (5,4) 7V (5) sPT2200 
OPT DY (3)=8 02.5945 (4,52072(65)42.086015,5) 4 VIS) PPT2210 


CHPY (59281226) +61 4,6)47(5)4+2.0°8(5,6)*7 (9) 1PT2220 


we anh oe ules. i: 


pwauasttabor ae ee tat 


peta FAs uke telescieet nla DEAR eda Mabblidtiieialliie rcbtbtneulllt atelitlt ue wits teethuty a 


NUOZ(5)=BE 3,1) 480 4e LI FV( S242, 08H (6, LIE ZI) PPT2230 
OVD2Z (5928 (3,92) 4B0 4 eZ) 865 942.08B(6—92)4*2 05) PPT2240 
OWOZ (J D=B( 2439480 4,3) FY (5 142.08B15,3)4209) iP 12250 
OPOT(I)=B( 3,4) 4B0 454) 8V(5 142.086 (694)42 (9) 1P12260 
DPIDZ(3)=BE3e594B 1 4p SDFVE S042 OFBL Ey SIELIS) 1°12270 
OHOZ (5 }=8(3,6) 48 4,6) *Y( 5142.08 (6.608205) 1PT2280 
Cc 1P1T229C 
c CALCULATE A, RO AND DERIVATIVES AT BASE POINTS 1PT2300 
Cc FROM THERMODYNAMIC DATA [PT2310 
Cc 1PT2320 
CALL AROSUB (POS) oPT Ca) cHU J) pA Sd) eRO0S) eQSQRI J) PUADP ES) ,OADPLPT 2339 
1 T(J) ¢DAOH( J) -DRODPL I), OROOPT (5) + DRONH(I)) 1272340 
CIJSI=SORTC MALS) #* 2)08QSOR( JIS (QSQRIII-AC UD 482) ) 1PT2350 
c 1PT2360 
Cc CALCULATE SPACE DERIVATIVES USING ENTRCPY AND ENTHALPY CONDITIONS [P12379 
C ALUNG STREAMLINE 1P12366 
c 112390 
DUDX(S)=(ROL I) FU JIVE SP EOUDY (SD 4RO( J) #UC SD eH) EOUDZ (JI-V. SEPT 2490 5 
1 PADPOY(J)-WOS) #OPDZ65)-RO( J) FAL) © 24(CVDY( I) COWDZ0 J) IZ CRGCEP T2410 : 
2 JPe(AC J) e#2-U( y)e#2)) 1P12420 i 
Cc 1PT2430 3 
OVOX 6.9 951-DPDs (I) -RO( SIEVE) SOVDY( SIRE (2) OWE) HOVOZ ESD FZ CROCE PT 2540 i 
1 (J)9U00)) 1P12450 4 
c 1PT2460 : 
CWOX EJ D=(-OPDZ (9) ROU S) V0 5) SOWDY( SI-RO OI) WS) eDWDZ 05) DZ ERECT PT 2470 i 
1 (J}FUu05)) 1PT2460 i 
c 1PT2490 : 
OPDX (J) =-RO( GS) #10 LS) EDNDX (SEV CS *CUDY (J) th Od) *DUDZ 1) ) 1P12500 : 
c 1pT2910 i 
OHOX(J)=(-V0J) SOHDY (J )-W( J) OHDZ (5) 2/000) 1PT2520 . 
C 1P1T2530 
OPTOX{ JI=0-VES SOP TDY( J )-WIS) #OP TOZ(5))/U05) 1PT2540 
Cc 1P12550 
K1=(C(6)4#2)/QSQR (6) 1P12560 
K2=1.04K1 1P 12570 
Cc Tel 2960 : 
DCDX (5 )=C( J) €#3( (QADPL J) *OPOX( S)+CADPT (J) *OP TOX( J) tOADH( J) O1P T2596 : 
1 DHOX( SIDS CAC) 983 = LUC SPE OUDX ES) EVE) OVO XC) OWS) FOWD KOI) ) JE PT 2609 & 
2 CQSQR( J) *#2)} PPT e610 ; 
C IP 12629 ? 
BCDY (EPCOS) e #380 (CADP ES, SUPDYES)#DADPT (SDP TDY( J) (DACH (J) eT PT 26 39 . 
1 OHDY (5) 97 CATS) #3 - (UCSD EDUDY (SEV ES) SOVOY ESD HOSP EOWOY (SDI ZERT 2640 , 
2 (QSQR(S)#2)) 1P12659 ; 
Cc [rf 2o60 : 
OCOZ( 5 )=Cl J) 0* 30 (CADP( J) *OPOZ( 4S) *¢DAUPT (5) *DPTD2( 4) #DACH( YS) OEP T2670 
1 OHOZ(659)/0 A022 O* 5 (UES) *DUDZ( SPV CS) FOVDZ (5) tH 0) © OWDZ (0S) ) SEPT 2680 
2 (QSOR( J} ##2)) [rT2690 
c Ipf2700 
c CALCULATE VARIATION CF ALPHA AND BETA AS BASE POINTS fer2710 
c 1P¥2720 
GO TO (210+220+230,240), J 1P12730 
c [P12740 
29 CPi =Cl6)e( BEFX(6)SUCDXU1) tBETY(6)*#CCOV( LD CBETZ(6) SOCDLELIP T2750 : 
1 ») 1PT2760 3 
UTHT=U(6) #C(6) FAL PX(6) peh2770 _ 


VTIHTSV(6)4C(G) FAL PY( 4) 1P12760 


Cc 
220 


230 


240 


250 


WYHT=W(6)4C(6) FAL PZ (0) 1P7T2790 

{P2800 
UPTHCE)=C(6) *( BETX(C 6) *0UDX(1LI+BE TY(O)*CLDY(1) +8ETZ(6) SCUDZILIPT 2610 
») FP ¥2620 

1P 72830 
VPTH(1)=C(6)4( BETX( 6) *OVOXELICBETY(6)¢CVDY(1) +BETZ(6) ©DVDZ(11PT2840 
») 1P 62850 

tPT2860 
WPTHE) )=C (C6) (BET X(6) #OWDOX( LI FBETY( 6) *OKOY(1) +5E12(6) *OWOZI LIP T2870 
y) 1P12880 
G60 TO 250 1PT2890 

1PT2900 
CPTH(2 )=C16) *(-AL PX(6) *DCOX(2)-ALPY(6) *OCDY(2)-ALPZ(61)40COZ(1P T2910 
2)) 1°T2920 
UTHT=U(6)4#C(6) *HE TX(6) 1PT2930 
VTHT2V(6)4C(6) #BETY(6) {P2940 
WIHT =W(6)4C16) *BETZ(6) 1P1T2959 
UPTH(2)=C(6) *( -AL PX (6) *DUDX( 2)-ALPY(6) #DUDY(2)-ALPZ(6) *OUDZ ITP T2960 
2)) 1PerT2970 
VPTH(2)=C46)*(-AL PX (6) ®OVOX(2)-ALPY(6) #OVUY(2)-ALPZ(6) *OUVUZ (IPT 2940 
2)) ebey90 
WPTH(2)=C 16) 41 -AL PX(6) #5WDX( 2 }-ALPY (6) *OWDY (2 )-ALPZ(6) #0hDZ (1 PT 3000 
2)) Pr3010 
€O TO 250 1PT3026 

1PT3030 
CPTH(3)=C{(6)*€-BETX(6)*0CDX( 3 )-BETY(6) #0CDY( 3 )-BE TZ2(6) 40C0Z2Z (1 P 1 3040 
3)) 1PT3050 
UTHT=U(6)-C(6) FAL PX(6) 1P13060 
VTHT=V(6)-C(6) FAL PY(6) PT s070 
WTIHT=W(6)-C(U6) FAL PZ (6) pPrsoyo 
UPTH(31=C(6)4(-BE TX (6) eOUDX( 3) -BETY (6) *DUDY(3}-BETZ(6) #0UBZ (EP T 3090 
3)3 IPF 3L00 

{Prsy1o 
VPTHI3)=C(614(-<BF 1X(G) *OVOXAL 3I-GETY( 6) *DVDY(3)-BE TZ(6) *OV0Z (TP T3120 
3)) TPT 4t 30 

PPT3L4a 
WPTH(3)=C(6)(-BETX(6) #DWOX(3)-BETY (6) *OWOY(3)-B8ETZ(6) #OWUZ (IP T3150 
3)) iPt3l60 
Go TO 250 {tPer4sl70 

fPT3180 
CPTH(4 )2C (6) 4 ALPX(6) #NCOX(4) FAL PY (6) *DCDY (4) tALPZ(6) #0CNZIGIP T3199 
y} , 1PT3209 
UTHT=U(6)-C(6) *BE TX(6) tPr3z10 
VTHT2V(6)-C(6) BE TY(6) [P¥3220 
WIHT=W(6)-C(6) *BETZ(6) 1P T3230 
UPTH(4)2C(6) *{ ALPX£6)*®DUDX(4) CAL PY (6) #DLOV(4) ALPZ(6) #DUDZ(41P 63240 
») [pr3zbo 
VPTH(4 32016) *( ALP X(6)*DVOX14) eALPY(6) ©OVDV(4) 4ALPZ(6) SOVUL(41EP 53260 
») [P3279 
WPTH(4)=C(6) *( ALP X(6) ©DWOX(4) FAL PY(6)*OhO0YV(4) ALP 216) F0K0Z (47 PT3280 
ry) 1PT3290 

1PT3300 
UTHET( S)SUTHT* OUD X( J) +VTHT*0UDY (J) +H PHT *OUNZ (0) 1PT3310 
VIHET( J) SU THT*OVDX( J) +VTHT*OVDY{ J) 4WTHE*OVOZ( J) 1PT3320 
WTHET( JdZUTHT#OWD XC J IDEVTIHTOORDY( J) +H THI *OND2 { J) $97 3330 


B3=-(UC SIAL PX (6) 4VES) FAL PY( GD OWI J) FALPZ(6))/TAUCS) 1PT3349 


ea  rarnastnd witccensant KARUN Mi ttli 


GO TO (260,270,2804290), J €P1 3359 

Cc 1213360 
260 B4=KL*(SETX(6) CUTHET(LI*BETY (6) #VIHETC LS ORETZ (OIE WTHET(2))-«K1e73370 
1 2ECALPX(6) CUPTHIL DOALPY(O)SVPTHE LICALPZ (OI OHPTHILDI-CPTHCLI OL PE 3360 

2 KI/ZC (OI S(U (6) FUPTHOLIEV(6,4VPTHOL) ¢W16) SWPTHE 1) ) 1PT 5340 
©1=34/C(6) IPT 3400 

co TO 300 Ipt3610 

Cc 1PT3420 
270 B42-K1L*(ALPX(6 }SUTHET(2)+ALP (6) OVTHET (2) 4¢ALP2(6) SHTHET(2)) -2 PT 34 30) 
1 K2*(BETX(6 }SUPTH( 2)4BETY( 638 VPTH(2 2 4¢BETZi6) #WwPTH(2))-CP THI 21T PT 5440 

2 4KL/C(6)¥(U(6) SUPT CZEOV( OIEVPTHI2) 4W(6)%WP IH (29) 1pT3450 
B1=B4/C(6) 1PT3460 

GO TO 300 1P'3476 

c 1+1 3480 
280 R4=-KLO(BETX (6) SUTHETC 3D 4GETY (6) OVTHET( 31+ BET Z( 6) #WTHET (322 ¢1P 13490 
1 K2*( AL PX(G}¥UP THE 3) ¢ALPY( 6)*VPTH( 3) ¢ALPZ(6)¢HPTH( 3) }-CPIH(3)1 PF 3500 

2 #K1/C(6)%(U(6) SUP THIS) 4VEG)EVOTH (3D 4H GI eHPTHI3)) TPT 3510 
81=B84/C16) fP145>20 

GO TO 300 Ppf3530 

c TPT $540 
290 B4=KLE(ALPX( 6) #UTHET IG CALPY (ODS VTIHET(IL )FALPZIGIEWTHET IG) I OKIPT 3950 
1 2*(BETX(6) *UPTK(4 ) ¢BETY(6) ©VPTH( 4) 4¢6ETZ16) #HPTHI4))-CPTH(4) 4121 3960 

2 K1/C(6)*(U (6) SUPT HI 4) 4V (6) eVPTHI 4) oW(6) HP TH(4)) Tyt397) 
@1=B4/C(6) 1VT 3580 

Cc pt 3999 
c SOLVE SEMILTANEFOUSLY FOR ALPHA VARTATICN FROM PI(6) TO BASE PGINTSIPT 3606 
c tHE5G19 
300 ALPTX(J)=( BL*OETM 148 39DETM2) /DETS iPT 3020 
ALPTY (5) =-(BLSCETN3+B34DE TMS) /NET4 1v1 4639 

ALPT7(J)=( BL*0ETY59B320E M6) JDETS feb so09 

c [rs 5650 
c CALCULATE fHE ALPHA AND BETA CUMPONENTS FOR ALL J $P 13000 
c PHU SE 
FALPX=ALPX(G)4ALPTX(U)*TAULS) [vl 5040 

EALPY=ALPY (6) ¢ALPTY( J) * TAU) [pt 36 90 
EALPZ=ALPZ(O)FALPTZ7(3)*TAULS) irs 3fyod 

c {PIV37l-y 
c NORMALIZE ALPHA TO MAKtL UNIT VECTOR Ire 3%20 
Cc 1P13/39 
NORM=SQRT( LEALPX#* 24EAL PY S524 EAL PZ4%2) 1eF3149 
ALPX(J)=EALPX/NORM 1eT3b0 
ALPY(J)=EALPY/KORM 1P1 3160 

ALPZ( 5 }=EALP7/NORM teT3//0 

QIIP=SQRTC QSAR IH) ipts780 
BETX(SP=-CALPY (I) OHI JI-ALPZ(S)4V(5))/009) IPT3790 
BETY(SP=-CALPZ (5) FUL SD-ALPXE SD OWI 0 00S) es 5800 

310 BETZ( I) =-CALPX( IS) *VE SI-ALPY(UFU( II I/0( 5) ae cea) 
ASSIGN SO TO NNN EPT 3820 
PTEST=P(6) PPT 44639 

Cc [PT 3640 
Cc SOLVE COMPATIBILITY EQUATIONS [pT 3450 
c 1PT3860 
CALL COMPAT TPT 35870 

QS8U(6) Fe 2eV( 6) se 2eWn (65857 1PT 3880 
Plodbe(P(6)4PTEST)/2.0 [pT 3890 


Cc £PT3900 


CALE AROSBL (P15) ,FT (5) ,H05) ALG) eROLE) ,QSCREO?) PPT3910 
CIGI#*SQRT(QSQR( G6) Al 61#62/ (059K 16)-A( 699623) 3973926 
RATIO=SQRT(1S$QR(61/05) 1773930 
UL6d=RATIO*UL 5} 1PT3940 
V(652RATIOOVE 6) £PT3956 
WIG )ERATIOSW( 6) 1PT3960 
TF (2.Q08ABS(P{6G1-PTESTI/SPTEST-ERROR) 330,570,320 {PT3970 , 
320 CONTINUE 1P7 3980 : 
CALL ERRORS (11) 3°97 3990 : 
330 «= C6) #SORTIOSORI6)} 1PTSG990 : 
¢ iPT4010 
C CALCULATE XSTEP REGULATING PARANETER 1PT4020 
Cc $PT4030 
CXOL2UL6) ©#2/101 6) 4Q 16) 14 1.0-C (61 £91 6) *SQRT TAGS (OS8R (6 (PUTO 1 6F2-L1P T4049 
2.03)) 1PT4090 ; 
¥o=Y(6) i? T4060 i 
26=1(6) IPY4O70 
U6zUl 5) 1P14060 
Vo=vi6) 1P #4090 : 
ho=wld) £P 14190 ; 
P62P(6) IPT41$0 ; 
RETURN LPT4L29 


END PPY4136- 
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HOaAAAOAN 


Oa 


SUBROUTINE CUMPAT Cur 
COR 

SSESFSSSESESESSESTSELS STS SSE SSESES SSH SEE SESS SSE SHOPESTOASCE EEC TVSERESEEO cOvr 

c OM 

SOLVES THE {HTERIOR POINT COMPATIBILITY EQUATICNS ccr 
cor 

SSSOSISHICSOSSSSESESEST FHSS SSE SHSSSESE SESE SESE SHS SSS SHSSHEHHHSCSSESSEHSEES cor 
cov 

DEMENS ION E0343), OF 30330 BL3)s NETE4S) cur 


COMMON /OTSUB/ ¥(6)eZ16),U06),V06) 5069 9P 06) sPT16) pHIS) ALO) ~RO(6IC OM 
140465 4Q(63,QSQR(6),0U0K (6) ,DUDY {i 6) ,BUDZE 6) ,DVDX(6) -OVOY (6) OVOZ16)L UP 
2eGWON 16) sOWNY(6) -OUOZ(6 )-DPDX16) OFOY(6) ,DPOZ(6) eDPTOX16) sh PTUY(6ICUM 
3, 0PTDZ (6) ,OHOX{ 6}, DHDY! 6) ¢DHOZ£6)-¢0COX (6) sDCOVI6) eDCOZ( 6) pDADH(6) Cur 
STADH( 6) eDADPT (6) eOROOP( 67 pURUOPT(6) ORONDH(6) sALPX(62 ,ALPY (6) ,ALP2 (COM 


5OV BE TXCO} eBETY( 6) BETLIGI sALPTX(6) pALPTY(G} -ALHI7(6),CPTHI6) ,UPTHCUM j 


OCG eVPTHIS ID WOTHESD LINE T (4) pVTHET (4) »WIHET(4). TAU(6) -ADBDS cur 
cur 
CALCULATE COEFFICHENTS FOR SIMILTANEOUS DIFFERENCE EQUATIONS FUR UCOM 
caw 


SS0i2€ LI*EBETXIL SOUCK( LICBETY (1) * (OYOX(LISOUDY( LL) 4¢BFTZ(1)4¢(0CO¥ 
WWUKCES © CZELIDPCHETY(E OLBEFY (LI COYVDY(LICBETZ¢1)*(OWOY (LI +Ov0Z(1ICU" 
Sd) BETZ IBETLELIsOWOL (2) Cu. 


CUrF 


PRCI2BETXI3) S(BETX(3 FDUOXL SPeBETY (39¢ (OVOX( 3} *OUDY(3)) ORE TZ(3)¢( CC UY 
LeUX(3) CNUOT( 34) eBET YES DOC BETY( 3)*OVOVI3)¢BF T1203) %(OwOY (3) tOVOZ (208K 
20) BET LIZISBETZ( 3heDwWOE (3) Cle 

Cr 

BACZ=ALPX( 2) CAL PX{ 2 SDUCKL 2) AL PT (20% (DVOX(2)¢UUDY’2)) aL P2(2) 410” 
LHOK (2) ¢HO2 1209) ALP YC? De CALPYC 2 eDVOYV(2) CAL PZ(2) 9 (OKDV(2}ONVOL (290 se 
ZdVCALPZI2) AL PZ (2d edRN2 62) Cut 

ere 

BADSZALPX(4) OC AL PX (4 JSDUDXI GD FALP TEGO (DVD KIS DODUDY (4) CALPZI4) 4 (UCL 
§HOX14) ¢PUDZ (437) ALP VIG DOLALPY (4) ©DVDV (4) AL PL(4) OC OWDYV E46 FS EOVOLICDE IF 


AIFTALPLIGIFALPE( 4) OD WO2 54) Che 
Galle 

Luv 

ACUARU(O)4C(6) Cur 

ACLSROCLIeCOL) Cut 

RCZ=RO(Z)#C( 2) oa 

REICKO(3) CL 3) ae 

RC4BAO(4) 8054) Cue 

RCSERO(S555(5) Cur 

RCAXSePC& eae PX(6) COw 

RCAYHERCHFALPY(6) cous 

RCAZEZRCOSAL PZ (6) tu" 

ACDKOXRCEAHETA( 6) £0K 

RCBYS*RCHCHETY (6) cow 

ACBLESECS*BETZIO? Cur 

CLA2,06P{ 1) + CREAROERCLA BLPKCE) CULL ECRCAVEORCLSALPY(E) OWL} 6 (RCACUF 

LZGORCLEALPZ( 1) SeWCL) ORS LOCELP*BSOLSTAU(E) cow 
C272.0 F712) + (RCBXECRC IO BELXE[PEOUL ZIP EC RCBYOORCZABETY( 2) FeV 2)6 (ACACOM 

LLoeRC[SHETIC2Z7 Dewi 2} 4RC 26C( ZSHSAAN2STAL( 2) com 


0322.08 ( 3)-1ACAKGSRCIF AL PK C3} Ul 2)-(RCAVG*RCISALPY(3) DEVIZ)-(RCACOM 
UZGM*RCIOALPZE DVS Swi 3) ox 20013) eG8N3eTAUL3) Cur 


man? 


CAL 


D422,.0 P14 I-—EROBKGEORCSO KE IXE 4D) SHS) CRORE eR CHOBE ELC SD FOV CGP TROKCUM S50 
LIGCRCSONET IE SD DOWIE Oe 6401S enalse Aula) cum 940 
C5=2Z2.O4PE Pe CRILOPFULG) ERNISPFULD) DOU SD EERIE) OVO EROS) eV io) FovCUr 570 
LLSdeCRULOTOW LEI FROIS 16405) )8WID) Cur oso 
Vos2.DOP(SPRCSOL (SP eANHES*e PAUL 5) CUr 496 
SUSLECTAUCE Pe fAuC SDE sTAUL LP / faut 4) Cur v00 
SIMPZCTAUISDEAUL2DVZTAULE DS EAUC 2) Cur 610 
CUSLACTAUCIP-TAUCL DI /TAUE SDS TAULD) CUP 620 
CE42= CTAUIG) -fAUC2E} /TAUC4S IS TAU C2) COM 630 
TLA0ECTAUCLE CFAULZIISIAUCLISTAULC2)- 2. 0/TAUCS) CUF 040 
PCL) O./TAUEL)-B 4/ EAU 5 -D5EDT SY COr 650 
E¢2$=D2/TAU2)-B4/TAY(4 -DOEDTO? CUr 661) 
BC -OL/TAVUELIAO2Z/ TAULS )-06/ TAU 5) -DSe Ti 25 CUM «70 
Cee L)ERCAKG SST IE el —ROt 6) UL - KUL SOULS) PCDI SE OKC] CALP XCEL STAUCLICUM 640 
LORCSSALPXU3I/T AUIS) Cor 690 
COL 2) FRCAVHOSS shel -KULODEVIG)-KULS IOV SOD POD EZLORCLOALPYELISTAULCLICUM /00 
LeRCAALPYE 3) 7TAUE3) Cus #10 
CA TFC -RG(OPOWIGI-HUE SOMES) eT ILERECLOALP LIL STAULLI ORE SOALPLE3C0" 720 
LIJFAUC 3 ORCAZ OSS Et cor £30 
Ch2e kV =RCBXOSST! 24 - KUL ED OULOI-RUCSIFUCSDDEDEGZ eRCZEBET XC 29 /TAUL2ICUM 740 
LOEKCSPBETXIGI/TAUIS) CUF 750 
C2, 22 =RCBVH%ST429(-RUL GFEVIOI-RUCSIOEVI5: ON Fo2eRnC2OBETVEIZISTAUIZICUM £660 
PORCSOUETYIGI/TAUIG) Cur 170 
C203) =RCH16 9514 20 (- AOL 6) OMI 6) -RUL SIS WIS) OOP a eRC2SBETZIE2)/ TAU 2 )COY 780 
LeRCSPBET LISI STAUIS) CUK 790 
CUSe LV =KHCAXG/EAUCLD RCI KGS EAU 2 bE RUE 6 DOL (6) OKOL SI SUES) OTE 254HCi *CUOM B00 
SALPXCLISTAUL LI ORC2#BCTXIZI/TAUL2) COr 610 
CHESS 2DAACAVE/TAUEL I ORCH YE /TAUL 2) -ECRUC 6 APY) ORUCSIOVI5) OTE 25enCLeCOmM 620 
LALPYCLISTAUCLIORC2ZEBETYO2)/TAUL23 COM 630 
COs SP=RCHZOSFAUL2ZI~“(RILODOWI OD ERDISIO DID) DOT L24¢RCLOALPZILISTAULICUM 640 
EVORCZSHETLI2I/ EAUL2) CRT ALOSTAUL IL) Cur 60 
Cr 669 

SULVE SEMILEANE UUSLY FUR Nim VALUFS OF BPeUeVew A POUENTOG) Cur sf 
CUP 480° 

£0 9O #2144 COF 690 
4U TO (10,59050-7C), CUF ¥Qu 

OO JU Sedas CUM ¥iv 

UO 20 Lele Cum 920 

EC Sot d=05,L) Cor 940 

69 TU 90 CUP 940 
COY 996 

HO 40 grt, CUP 960 

EL Sed eR SD Cur 9iy 

GU Tu 9G Cur Jao 
COM 990 

UU 6U Sethe $ Cur tuou 
FOS, $d t03, 3) Cor LOL 
tJseZ2b=8t 5) COF 10270 

oI tO 90 COMLY gu 
Cur tusu 

UD HO Jeb, Curios) 

b 3,23 =005,2) CUM I0G0 
€05e4)=805) CuUMly le 
TOPE CL, Pde E22 he Cae TP -E EZ DHE 2s DIKE CL AIO TEMS LISE C3, 59-CUrlUbO 
PECL DORE, TPE Ce SPHERE ce DOE CS, 2I-E CS LICE RL ZI} Cum too 


Lloedit (ay succeded COM Liou 


V(O)2DET(39/0ETC i) COmMiLt0 


wtGdeDETIZS/DETC1) cowii20 
P16) 2 (05-Uig F671 2016) 8UL OV ERO( 52 OUTS I)—V COT F( RETO) OV 16) ¢RO(E 2 o¥15) COME) 30 
L-W1OS SC RO(6 } yl 6 4RO15) W15)397/2.0 corli4oe 
RETURN corti50 
Env CUMLI6O- 


i ‘s Sra ae Y eer = _ ae ~+ = Ee 
SOR IGIN Cc 
$iIBFrc PRNOU! 
SUBROUTINE PRNGUT PR 10 
Cc PRN 26 
Cc FEISS SSLESES SEES OS OO SEE EETSEESOPESSE SHOE OHSS EHS SHOOSE LOSE SOOEOE PRN 30 
Cc PRN 40 
Cc PRINT OUT SOLUTION SURFACECESSENTIALLY THE SAME £3 PRNIWSI PRN 50 
c PRN 60 
Cc SPESHSEEIFOSEE SH OO SOOES SHESSESHE OES SESE SHDOOESESLOOS ASEH SOSESE PRN TU 
Cc PRN 680 
CUMMON /SOLUFIS Y¥O25 19, 199428 201 LF CEZAR VE DelMolD) eI2eL DPRK 90 
PalLPp PLZ LMe LFA PEL AGEL Di orth LD, 19) Kr ASSILG,L 9) PRE 100 
CUPMON /CHIKLS PAINT IPRINT 2, ERROR eo SASTYP ICLASS NP ONT Tie dd el ell ePRM Lku 
BNSTART DEL KX, GOEL XeKK o Xf 2) — KMAX,ND #RN £20 
COMROH /XRGLIZS RE 22 19¢ 193-0200 52519015) pEXCNIR eDEL XMN, PEM NAN, SAFPRN 130 
ivy PRY 140 
COPMON /CONSTs PI, ORLDe B1U,6,.8T UUG PR 150 
COPHON (THRUSTS AREA, ARLAT, FMASS OXTHRG  TTHRE e ZIHRE SXTHR  VIHR FINN A XPRN 160 
1POmT g YPOMT 2 MUMT » PAMB,FAASSI RASS Pun 170 
ENTCUER PRINT) PRINT 2 Pan 180 
NOzteP PRN 190 
fF (9CLASS.69.2) NNenE PRM 200 
APRNT*PRINTIOL PHN 2.0 
tinged PRN 220 
GO 10 (10¢40,80} ¢ NPRNT PRN 230 
to WRITE (65289) X¢LLI, KK PRN 2460 
HHITE 1651590) AREAT,RAASSe XTHR, IHR e ZTHR  XMOM Te YMOHT ¢ ZHOMT PRA 250 
BHIFE 16,160) PRN 700 
WHITE (6,120) PRR 270 
eAITE (6,130) Paty 260 
J2snP Pru 290 
fF (C1CLASSLEQ.4) J2*N0 PRN 300 
CU 30 LeteNU,PRINT?2 PRN 310 
Jlel Paty 320 
TF {(ICLASS.FQ.1S Sle PRA 330 
LO 30 se 5be J2,PRINTZ PR 340 
fF (LONE.LE.94) GU TU 20 Pate 350 
wAHTTE (6,220) XILL), KX Pan 360 
WRITE (6.1203 PRN 370 
WASTE (6,130) PRN 360 
LINES! PRN 390 
20 LINE*L INE ¥4 PRN 400 
TOLPSPT (1.6537 144,C€ PRN 410 
TOLKeHIS, 39/6506 ” ‘ PRN 470 
WRITE 16,160) FoteVl dre bs td 2ELL eho Sd awh eho Sd eZIb oh oSh a VE of ¢ JPRN 430 
1 VaeVEe De Se Phd ole te UI Le ToS eVEbL a Te dd ce CLL 2845) -TOLP,T CLM PRN 440 
30 CONT ENUE PRN 4£5P 
co ra 100 PRN 460 
c PRN 471) 
40 WRITE Co, LiO) Xft 2,KK PKN 480 
WHITE (6,150) ARFAT  RMOSS, KTHR, VEHR AZ THR, XMCHE,YMONT, ZMOMT PRN 490 
RHITE (6,170) PRN 500 
BRITE (6,120) PRN 5910 
wHITE (6,430) PRA SS 


J22teP PRN 
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160 
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190 
200 


1€ (ICLASS.EQ.4) J2eND PRA 54U 


CO 70 s=e$oNOePRINF2 PRN 950 
J}21 PRN 569 

If CICLASS.EQ.1) JSiel PRN 570 

DC 70 SeSlgJS2ePRINTZ PRA 540 
1 (1-EC.1.UR.3J.EQ.1) GO 10 52 PRN 590 

lf (1.€Q.N0.0R.5.EQ.NO} GO TG 5C Pan 600 

GO {1G 70 PAN O10 
PRK 620 

LF (LINE.LE.54)} GO FO 60 PR £30 
BRITE {6_110) X(LLI- KK PRY 040 
WRITE (6,120) PRN 650 
WRITE (6,130) PRN 601) 
LInEs} PKN €7G 
TOLPH=PT(25397144.C Pky o8O 
LEINEstINnEel Pkt o99 
TOLMeH(£, 33/8706 Paes 00 


WHITE (6,160) PodeVbbole too lZibb ole dd eth slo di oZibol esd eVitgt, der 119 
1 VeVibele SPU Lele doe ULL eo bot) oVilioisd) chill elsJ), FOLP,FCLH Pe FeO 


CONT S NUE PRE Lat, 

GO Tu 100 PRE 149 

Pes 159 

1€ (LINE.LT.55) GU To 90 PRY 760 

LINEsc PRE 110 

WRITE (6,190) PRE 740 

MRITE (Oe160) XELLI KK bee Tan 

LINCELINFel? PRE BOO 

WHITE (6,150) ARFAT,RMASS¢ XTHR, YTHReZTHR, XMOMT. YROMT, 74OKT PRY Blt 

WRITE (6,200) MYM, CNN, SAFIY, VELA Pats B20 

RETURN Pes B40 

KN 640 

PRY ubO 

FORMAT (LHL, LOHSOLUTION SURFACE -5 LOX, 3HX H 92K eF See 2 Ke Alin} GX eGP Khe god 

LHPLANE 212) PR BT 
FORMAT (k3HOe LOK, LHS e 2k LHS 9 BX eg LH, BXe LHL HXe HAGE LHS e WK e LHP e TK se 3PKE: BHO 

LhRHO, OX, PHT GK, LHUs LOX, LEV e BX e LHwe 7X, ZHPT, OX, LH? Pri. a9O 


FORMAT (1H 4 LOX, GHOIND, SX_ SHU IN Del 2Xe GHIFT/SEC } oe hX 6 SHILBFSINZ1,2X% PRN 900 
LOH(CLUMSET 339 2XeTHIDEG &)_ 3X_ BHI FT/SEC) pe 2X eBHIE FT/SEC) LK GHIFI/SECE. ate G1 


Ze PHIL OE/INZ Ds lke SE(BTU/LBMIS) PRI Y2U 
FURMAT U2H sXe SQ LK 612 2k oF Loa 2K Fee 2KoF ode 2KeF Feb e2XaF ete 2Keun 439 
DeE 1D. Ge2K oF Pale 2KeF Bole 2KoF Bands 2keF Tel s2keF ole 2XeF 8.1) FRY Gay 


FORMAT (1HO eS OX, }OGHTHRUST PARAMETERS (THRUST COMPCHENTS HAVE BEEN Pais 990 
IPULTIPLIED BY THE RATID OF INITIAL YO LOCAL PASS FLOW RATFIS/S 1H gp tPat, GeO 
QCKsISHCROSS SECTION ARE Aig 2X oF 10.4, 2K — THE INGS 2) 4K e 22HMASS FLOW RAPKS 1/0 
FTE RATIO me 2K oF LO. Se S/LU g LOX DUXTHRUST Fy 2K oF V2 03 Xo SHILBF? OKs SHP R's BHD 
GYTHRUST 9 2X oF Fo 201k e SHILAE Dp OXePHZTHRUST =e2X,F 7.2 01 ke SHILBE I Sst 999 
Se 4lLOX.GHXMOMT Re QKheF V.2el Xe BHIFIT-LAF), 3%, 9MYMONT £ 2K F162, LKR is OG 


Oe BHF T-LBEF), 3K,9HZKOFT Be 2KeF T.27,1X, OHIFTI-LBF I) beaiOlg 
FORMAT i1LHO, 105, 37HBOUNDARY AND INTERSON FLO PARAMETERS) BRAIG. G 
FORMAT (110- 10K, 24HBUUDNDARY FLOW PARAMETERS) PREIC 30 
FORMAT CLHO,/IBSHSGLUTIIN SURFACE -,lOXe SHR Be QK oF n 342K SHEEN) eX PAN LUG 

A6HPLANE ,25) PRKNIOSO 
FOumMAT (1H1) PREDOGU 


FORMAT (1HO, 10K, 27THKSTES REGULATION P&RAPETERSS/IH elLOXLYHLIMITERPRNIUIO 
1G POINT £ =e1%,1205h ANDe IK, 3H #, gh 2e5XeLOHSAFETY FACTOR = ,FRKILLOBG 
ZLO,5eSKeLOHMDELTA K «© »f 10.4) PR ULOW 


END PRY LEOS- 
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H A new method of characteristics numerical scheme for three-dimensional steady 

1 flow has been developed which has second-order accuracy. Heretofore all such 
schemes for three-dimensional flow have had accuracies less than second-order. A 
complete numerical algorithm for computing internal supersonic flows of the type 
encountered in ramjet, scramjet or rocket propulsion systems has been developed 
and programmed for both the IBM 7094 and CDC 650C computers. The method has been 

tested for order of accuracy using the exact solution for source flow and Prandtl- 


+ he 


Meyer flow. The results of these tests have verified the second-order accuracy 

of the scheme. Additional accuracy tests using existing methods for solution of { 
two-dimensional axisymmetric flows have shown that the scheme produces accuracies 
comparabie to that of the two-dimensional method of characteristics. The computer 
program has been used to generate the flow field for several three-dimensional 
nozzie contours and for nonsymmetric flow into an axisymmetric nozzie. These 
result reveal the complex nature of three-dimensional flows and the general ina-t- 
equa * quasi-three-dimensional analyses which neglect crossflow. An operational] 
conven ent computer program was produced. The program has the capability to 
analyze nonisoenergetic and nonhomentropic flows of a calorically perfect gas or 
homentropic flows of a real gas in chemical equilibrium. The initiai-value surface 
options include uniform flow, source flow or axisymmetric tabular data. The 

nozzle boundary options include conical nozzles, axisymmetric contcured nozzles 

and super-elliptical nozzles. 
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